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1.1 Introduction 

The purpose of this manual is to describe the components of the system 
program library and its principle of operation. Those ancillary programs such 
as the update programs that are not used directly by the user, but are required 
to maintain or modify the system, are described in Chapter 5- 

Chapter 1 outlines the program packages that constitute the systemo 
Later chapters give fuller details and program listing of these packages. The 
reader should be aware that system programs are typcially subject to continual 
change so that the program listings are almost certainly out of date before 
being reproduced, and therefore should only be viewed as presenting the flavor 
of the program. Copies of the latest version can be referenced in the Computer 
Laboratory. 
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1.2 Allocation of Memory Devices 

In order to gain machine efficiency it is desirable that as often as 
possible programs within the machine are under some system control. When a 
program Is under system control it must be obeyed in the presence of a monitor 
program. This monitor program will check for legality all input/ output orders 
and continuously monitor certain internal conditions such as overflow and 
external conditions such as input/output and special register Interrupts, type- 
writer requests, the clock, etc, A program run under system control must perform 
all input/ output via requests to the monitor program. In doing so, the input/ 
caitput unit or register is addressed logically, that is by a number which is 
assigned a physical significance by the monitor. The monitor program is table- 
driven in the sense that it converts logical numbers to absolute unit addresses 
by means of table lookout. These tables may be changed at any time by an 
authorized program, thus providing automatic relocation of input/ output units. 

During the system operation, the various sections of core storage will 
be allocated to the system and one or more users. Any user may have a maximum 
of seven-and-a-half thousand words of core storage. Every eight-thousand -word 
module of core storage will contain a 512 word monitor program occupying the 
high address locations. It is possible that several very short programs may be 
stacked in each seven-and-a-half -thousand-word core. If more than one core is 
available then additional core area will be allocated to the most frequently 
used system "programs such as the Scheduler described below. If remote consoles 
are to be used then the basic program to service these will also exist in some 
of this extra memory. The remainder of the core will be divided between various 
uses active at the given time. In all cases the 512 monitor program will be 
directly addressable by the user although it is always memory protected so that 
the user may not change it. 

The next level of storage is the drum. This will be used for high 
use system programs, back-up storage for the monitor and then for the users. 
The user will be assigned a suitable number of sections of the drum consecutively 
addressed. He refers to these by the logical sector numbers, through W; the 
monitor will automatically relocate these sector numbers to the appropriate 
physical address and monitor N, the limit of the drum available to that user. 
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Tape units will be assigned to the system and the user by the logical 
unit number. The logical unit numbers are 0, 1 and up„ Units through 5 
inclusive are assigned permanently to the system. The user may use tapes 
numbers 6 up to a suitable limit. 

The assignments of the first six logical numbers are as follows : 

Tape is the system tape. 

Tape 1 is the library tape. 

Tape 2 is a spare tape for the system which, probably will be used 
to store hold-over programs and also for dump of the disc 
file for long-term storage. 

Tape 3 is the system input tape which is loaded off-line by the 

li+Ol or similar machine and it contains the input for batch 
processing or background load. 

Tape h is the output tape destined for a printer or punch via the 
lij-01 or similar computer. In the case of FORTRAN which 
refers to punched and printed outputs separately, logical 
tape number 5 will be used for punched output. Physically 
this is equivalent to logical tape 4, The logical number 5 
may not be used by a user except in FORTRAN. 

The disc file will be used for storage of other system programs,, 
retained user programs and user working area^ (By a user program is meant the 
totality of orders obeyed once the assembly or compilation of a program, has 
started until the final execution of the program has been completed,) Thus user 
storage areas on drum and tape will be used by the assembler and compiler. 
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1=3 Main System Program Packages 
1.3.1 Monitor 

This is the 512-word core block present at all times that this system 
is in the machine. Its major constituents are the system input/ output programs 
which handle all transfers to and from the input/ output tapes and the system 
auxiliary program which handles all other auxiliary storage transfers. Additional 
programs monitor overflow and various other external conditions. These are 
described in Chapter 2. 
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1.3.2 The Load Procedure Program 

Each core load^ that is^ each portion of program which occupies the 
memory for a given time is headed by a loader 256 words long which takes care 
of loading that program into core. This is done in such a way that only that 
area of core which is actually used by the program is ch-anged. For this purpose 
the core is divided into 256 word blocks and the program must be a multiple of 
256 words. After having loaded the program the load procedure program then 
transfers to the program at the appropriate point, setting or not setting 
interrupt as desired. In loading the program it has put a block on an area 
the drum reserved for the monitor which contains a table of exits. The termina- 
tion of execution of a given program is determined either by a transfer by a 
program to SYSTEM or SYSERR, or determined by the monitor in the case of too 
much output, reading past the end of the input tape, or illegal machine conditions 
of various kinds. When any one of these conditions occurs an exit is made in 
such a way that the table of exits on the drum for this given program is con- 
sulted. An entry corresponding to the termination condition indicates which 
program is to be obeyed next. This program may either be on the drum, disc or 
tape. This program is then fetched, loaded by means of its self-loading feature 
into the core in only those locations which it occupies, and handed control. 
In some special cases, such as the dump program which is brought into play at 
the termination of execution of a user program, it is necessary first to save 
the contents of core for a later analysis. This is done in an appropriate area 
of the drum reserved for the monitor. 
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1.3.3 The Batch Processor 

This is the supervisory program for background load processing. It 
accepts jobs via the "SYSIjZ^" program in card images^ examines control card 
images and calls on the appropriate translation and loading programs. Control 
is initially handed to it by the scheduler along with information about the 
amount of core space available for the job. It returns control to the scheduler 
on termination of a job unless such control was assumed by the scheduler in the 
event of gross machine errors. 

During execution it communicates to the scheduler information about 
its time and output requirements and program ID information. 
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l„3.i)- Assembler and Compilers 

These programs basically read the input from the system input tape 
and possibly from the disc file and produce output in the form of relocatable 
binary card images and possibly listings on the system output tape. They may 
occupy several passes. Data from one pass is handed on to the next via core^ 
drum or tape units and fast registers 5 through 7„ After the final pass the 
binary card images are left either on the tape or drum in a known position and 
control is returned to the Scheduler. 
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lo3»5 The Loader 

This program reads binary card Images from both the input tape, if 
they exist there, and from the area of drum or tape where they were placed by 
assembly or compilation programs and forms a core load image on the drum„ 
Several such loads may be formed. Each load is prepared with his own load 
procedure program in a standard fashion. It then hands control to the load 
procedure program for the first core load. This Loader program will also take 
care of reading in the relocatable binary forms of the referenced and undefined 
library programs if they exist. This program is the final one to be obeyed 
before the user program is actually executed. 
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1,3.6 System Error Program 

This is in fact several programs located on various places on the 
system tape. One of these programs is called in any time an error condition 
which causes termination of the execution of any phase of the program is 
encountered. The best-known such case is of course^ the case of an illegal 
order or the call of the system error program by the user program during 
execution. The program, called in;, in this case^ will give a dump of the user 
area cf memory and other information helpful to the programmer in debugging his 
program. However^ system error is also called by the assembler^ for example^ 
when it encounters a condition that prevents compilation or assembly from 
continuing. Such conditions are too many errors, tables full, machine malfunc- 
tions, etc. In this case a dump of the memory would be of no significance to 
the user. Instead an appropriate error message is printed and as much diagnostic 
Information as possible is obtained for the user. For example, if a program 
falls because the error table overflows during assembly, the user should be 
told where this occurred, what were the earlier entries, how many errors had 
been encountered during assembly so far and if possible given as detailed a 
listing of the program as possible. The fact that System Error represents 
several programs presents no problem, since exit to system error Is made by means 
of the exit table which is different for each core load. This e;xlt table will 
determine which system error program is called. 
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1.3.7 The Scheduler 



This is a master control program for time-sharing purposes. In 
simple batch processing it is extremely short, handling only accounting and 
initialization of batch jobs. In a time-sharing environment, however, it can 
consist of many parts that are brought into core (from the drum) as the need 
arises. 
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1.1+ The Sequencing of System Programs from Tape, Drum and Disc 

When the exit is made from any given program via an exit table it 
will find in its table information about the next program to be obeyed. This 
information will be an indication of whether this program is on drum, tape or 
disc and the location on drum^, tape or disc of the first block of the program. 
The first block of the program contains Information which determined where the 
other blocks are. If this program is on the system tape then it is first 
necessary to advance or backspace the tape to the starting point. Similarly^, 
if it is on disc file it will be necessary to position the read heads on the 
disc in order to fetch the program. In order to prevent delays while this is 
done, each program that is loaded contains an address of the next most likely 
program to be obeyed. This is stored in the monitor area and^ whenever time 
permits, the monitor will attempt to position the tape or disc heads to the 
required location. To do this, the monitor always maintains a record of where 
the system tape is, where the appropriate heads on the disc file area and where 
it is desired that they next be positioned. 
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3. TRANSLATION PROGRAMS 



This chapter describes the assemhly and compilation packages 
available on ILLIAC II. 



Dates 


U^ll^^ 


Section: 


Chapter 3 




Contents 


Page: 


1 of 2 


Revision: 


1 



CHAPTER 3. TRANSLATION PROGRAMS 
TABLE OF CONTENTS 



3ol 



3.2 



3.3 



Z^h 





Revision 


Issued 


NICAP 


Pass I 


7/27/64 


3.1.1 


Input to Pass I 


7/27/64 


3.1.2 


Output from Pass I 


7/27/64 


3.1.3 


The Intermediate Language 


7/27/64 




3.1.3.1 The Reference Byte 


7/27/64 




3.I.3.I0I Pseudo Orders 


7/27/64 




3.1,3.1.2 Orders 


7/27/64 




3.1.3.1.3 The Address Field 


7/27/64 


3.1.U 


Errors 


7/27/64 


3.1.5 


The Program Flow 


7/27/64 




3.1.5.1 Flow Charts of the Generators 


7/27/64 




3.1.5.2 Subroutines Used 


7/27/64 




3.1.5.3 Major Use of Modifiers in Pass I 


7/27/64 


3.1.6 


Pass I Listing 


7/27/64 


NICAP 


Pass II 


7/27/64 


3.2,1 


Output from Pass II 


7/27/64 


3.2.2 


The Location Counter 


7/27/64 


3.2.3 


Program Sections and Subroutines 


7/27/64 


3.2.U 


Subroutines 


7/27/64 


3.2.5 


Errors of Pass II 


7/27/64 


3o2,6 


Pass II Flow Diagrams 


7/27/64 


3.2.7 


Characteristics of "SBSOLV" 


7/27/64 


3o2.8 


Pass II Listing 


7/27/64 


NICAP 


Pass III 


7/27/64 


3.3.1 


The Input to Pass III and Output from Pass III 


7/27/64 


3.3.2 


Description 


7/27/64 


3.3.3 


Control Words used in Pass III 


7/27/64 


3.3.i^ 


Initialization of Pass III 


7/27/64 


3.3.5 


Subroutines of Pass III 


7/27/64 


3.3.6 


Pseudo Orders 


7/27/64 


3.3.7 


Orders 


7/27/64 


3.3.8 


Error Types of Pass III 


7/27/64 


3.3.9 


Pass III Uses of Core 


7/27/64 


3.3.1c 


Pass III Listing 


7/27/64 


NICAP 


Pass IV- -Error and Name Table Listing 


7/27/64 


3.ii-.l 


Pass IV Listing 


7/27/64 


3.^.2 


NICAP SYSERR Listing 


7/27/64 



Date; 


\/2l/65 


Section: 


Chapter 3 




Contents 


Page: 


2 of 2 


Revision: 


1 



CHAPTER 3= TRANSLATION PROGRAMS 
TABLE OF CONTEFTS (Cont'd) 



Revision 



3.5 ILLIAC .II--FORTRAK II 



3.5-1 The Statement Recognizer 

3-5 'l-l Statement Recognizer Listing 

3.5.3 Fortran Part 3. Arithmetic Section 

3.5.3.1 The Arithmetic Statement Scan 

3.5.3.1.1 Indexed Variables 

3.5.3.1.2 Function Calls 

3.5.3.1.3 Exponentiation Generator 

3.5.3.2 Arithmetic Function Statements 

3.5.3.3 The IF Statement 
3.5.3.^ The CALL Statement 

3.5.3.5 FOTCTIOW and SiJBROIJTINE 

3.5.3.6 RETURN 

3.5.3.7 END 

3.5.3.8 F CARD 

3.5.3.9 Flow Charts 

3.5.3.10 Arithmetic Section Listing 

3.5.^ Inputs Output and Atixiliary Storage Statements 
in FORTRAN 

3.5.^-.l General Description 
3.5.^.1.1 F)^RMAT 
3.5.^.1.2 Execution Subroutines 

for t/o 
3.5.^.1.3 Compilation of First 

LIST Word 
3.5.^.1.^ Handling of the l/o List 
3.5.'+.1.5 Partial CALLs of the ; 

Execution Subroutines 

READ^ etc. 
3.5.^.1.6 Handling of D^ Indexing 

in l/o Statement 
3.5.^.1.7 Errors 

Logical Organization of the l/o Section 
3.5.^.2.1 Format Flow Description 
3.5.^.2.2 l/o List Scan 
3.5.^.2.3 The Use of Subroutines in 

the l/o Section 
Input-Output Listing 



3. 5. ^-.2 



3. 5.'+. 3 



Issued 

7/27/6!^ 

7/27/64 
7/27/6^ 

7/27/64 
7/27/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/24/64 
7/27/64 
7/27/64 

7/27/64 
7/27/64 
7/27/64 

7/27/64 

7/27/64 
7/27/64 



7/27/64 

7/27/64 
7/27/64 
7/27/64 
7/27/64 
7/27/64 

7/27/64 
7/27/64 



Programmed by; 


H. 


Jarosch 




T. 


Slivinski 




F. 


Schaffer 




J. 


Aaron 




C, 


W. Gear 


Description by: 


c 


. W. Gear 



Date: 


7/27/6I+ 


Section: 


3.1 


Page : 


1 of 1 


Revision: 





3,1 MICAP Pass I 

Pass I is a single-core load which, processes the source card images 
in order to extract a table of used or defined names. During this process the 
names are replaced by a 13-bit Internal form;, the address of their table entry, 
which saves further table searching. The card is condensed into an internal 
form, intermediate language, in order to reduce the time of subsequent passes. 
If the object is to be listed/ the card images are also packed, 25 per record, 
onto drum for the first 100 cards, and then onto tape 6. These images are 
read back during Pass III for listing purposes. 
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3.I0I Input to Pass I 

KICAP Pass I is entered, by the Scheduler when a nondollar card is 
next on the input tape and the last $ control card governing translation was a 
$ NICAP card. On entry ML5 contains 



L 



7 



1 = Gp implies write binary tape 

1 = Punch binary 
1 = Print object 



The input is assumed to be handed over by SYSIjo in card images. 
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3.1.2 Output from Pass I 

Pass I makes an exit to SYSTEM or SYSERR when a card without a dollar 
in column 1, and with G;, and blank in columns 8, 9 and 10 is read. If a card 
with a $ in column 1 or a binary card is sensed beforehand, an exit to MjZJwiT^^R 
is made without reading the card. 



SYSTEM Exit 



IS 



Core 



When the normal exit to SYSTEM is made, the state of the program area 



Location 0: 




Control bits 
for list, punch 
and GJ25 



Number of errors 



Locations 1-255: Error list. One error per word. Format is 



13 



13 



13 



13 



Card number 



J 



L 



Error Code 



Location 256; 



Number of quarter words of EQU 
list not yet in buffer -4 



J 



L 



First free 
word in 
EQU buffer 



Locations 257-510: EQU list. A packed string of 13-bit characters 

in IL, except that only the whole words are here, 

Location 511: The remaining quarters (0 to 3) of the EQU list, 
right justified. 
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Location 512 ; 



im TI 



-Miriber of -' 

entry 

points 

-Number of CALLED names 

First core location of name table — 

Drum block containing first IL block 



Locations LNT-7679: Name table in Pass II format; 



13 


13 


1 3 11 2 32 


13 








|0X X X 


X 1 



= Location not used for nameJ 

1 = Relative address (only set for 

CALLED names) 



State of construction: 

^ Unknown still 

1 " 

2 _^ 

3 Known absolutely 



Wot possible at this stage 



L 



Value (set 
for F0-F7^ 
MO-MI5 and 
CALLED names 
not defined 
in the pro- 
gram 

Type: 

Symbol 

1 Fast Register 

2 Modifier 

3 Label 

7 Wot defined 



Drum Block 



Word 0: A repeat of location 512. 

Words 1-255: The first group of words in this block is the set of 
entry points, one word per entry. Format is 



J2- 



13 



BCD name 



J 



Internal name 



J 



The next group is the set of CALLed names not defined, 
The format is: 
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39 



13 



BCD 



The rest of block is not used. 

Drum Blocks 1 to k Inclusive 

If a listing is required the first 100 cards are put here, 25 cards 
per block in the first 250 words of each block. The remainder of the cards 
are put on tape 6 in a similar format. At least one extra block is written on 
tape 6o 

Drum Blocks 5 to (iL-l) 

The BCD names used by the program are stored here in a (l-l) memory 
map of the core name table. This determines the number of blocks. The BCD name 
is in the first three quarters, the last quarter contains the type bits if not 
a CALLed name, and a sign bit if it is a CALLed name. 

Drum Blocks XL to ? 

The Intermediate language is packed into quarter words in this part 
of the drum. 



Tape Unit 6 

Tape Unit 6 (logical) contains cards packed 25 per block after the 
first 100 if a listing is called for. At least one extra block is written 
for buffering purposes . 
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SYSERR Exit 

If too many entries are made in: 

a) the name table, 

b) EQU buffer, 

c) Error list, 

d) CALL list, or 

e) the Entry list 

the program skips to the GjZ5 card and then exits to SYSERR with the code 1, 2, 
3, 4 or 5 respectively in ML. 

Since the last block has not necessarily been written, P7 contains 
the control word from the program which puts cards onto the drum and tape 6, 
M5 is or -1 if the next block is to go on tape 6; M5 is 1-6 if the next block 
is to go on drum block I, I = 1, 2, 3 or 1+. M2 contains the card number at 
which the failure occurred. 
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3.1.3 The Intermediate Language 

The intermediate language is oriented towards the 13-TDit byte. Each 
source card produces a string of bytes of XL called a statement which is packed 
into a buffer to be loaded onto the drum. An exception to this is the EQU type 
card which puts the main string of bytes in the EQU buffer^ and puts a single 
byte in the IL buffer which indicates the presence of a card. 

Each statement begins with a reference byte which indicates the type 
of order, address construction, etc. It can be followed by zero or more 
additional bytes. 



3.1.3»1 The Reference Byte 



Date: 


7/27/64 


Section: 


3.1.3.1 


Page: 


1 of 1 


Revision: 





111 



k 



L 



Character extension 

Type 

Subtype 

Tag 

Not used, 

1 = Labeled (outside name) 



The above figure shows the reference byte. The first bit is a one if the source 
card contains a name in the location field (columns 1 to 6), a zero otherwise. 
If it is a one, then the next IL byte is the internal form of the name. 

The next field that should be examined is the byte field which 
specifies the card type. Three cases are used: 

01 Order 

10 Pseudo Order 

11 Control 



Card Types 

The control type indicates that a card has been read which affects 
the listing in Pass III in some way;, but does not directly produce intermediate 
language. The cards that do this are ENTRY and the four EQU type cards. 

Control subtypes recognized by Pass III for listing purposes are: 



Set a switch so that no card's images are read for listing, 

1 Reset this switch, 

5 List a card image without assembling any program. 
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3,1,3,1.1 Pseudo Orders 

If a card is a pseudo order, then the only other field that may have 
meaning is the character extension field which is used to control the address 
in BES, BSS, ^RG, G^ DECQ and ^CTQ, This is described in Section 3,1,3.1.3 
below . 

The next byte of a pseudo order (after the name byte if there is one) 
is the "order." This has the format 



5 5 3 



Q 



P is the pseudo order type. Types allowed and the meaning of the 
other fields are : 





1 

2 
3 

k 

5 

6 

7 
8 

9 
10 



FIL 

FLD 

BSS 
BES 

i^RG 

Gj6 

ERASE 
ASSIGN 

CALL 
DECQ 



The two least significant bits of Q are the quarter 
word to be set. 



Q is the word/ quarter word to be set. (O 
boundary, k = odd boundary) . 



even 



C and Q are not;. used. An address follows this as 
determined by the character extension. See below 
for the construction. 

Similar to BSS. 

Has a number in the next byte. 

Similar to BSS, 

Has a number in the next byte , 

C is the number of assigned names (< 31). C bytes 
follow, each containing one internal name, 

C and Q are not used. One further byte follows which 
is taken to the internal name CALLed. 

C is the number of quarter words to be assembled. 
Each one of those quarters is in the regular address 
construction described below, so may take one or more 
bytes as determined by the character extension. The 
first quarter to be assembled gets its character 
extension from the reference byte. Subsequent quarter 
word constructions use a leading byte with another 
character extension. An example Is given in 
Section 3.1.3.1.3. 
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11 IpP This is identical to DECQ except that a FIL is 

performed, initially 

12 jSCTQ This is misleading since it does not now correspond 

to the ^CTQ card which assembles into a DECQ^ It 
is used^ however^ by FORTRAN. C is the number of 
quarter words assembled (< 31). These C quarters 
follow the pseudo operation byte. They are already 
in binary. 

14 CHR This is identical to J^CTQ except th^t a FIL is 

performed first. 

15 DEC This is Identical to CHR. 
28 EQIJS^ 

Q POIPT ( -hese go Into the EQU buffer rather than the IL 
-I vQ-'p- I buffer. One add.itional. byte precedes the pseudo 

'^''^ order and contains the caxd number on which the EQU 

appears. C is the number of bytes in the address 
which has normal construction, while Q is used in 
EQIIL only to indicate a quarter word displacement 
to the ad.dress. 
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3 , 1 , 3.0 1 , 2 Orders 

Order type cards use the subtype field to determine the address 
construction and to check for the legality of various possibilities. First, 
however, the tag field is examined. If it is a \, then the next bjte (after the 
outside name if there is one) is used to provide the internal name of a modifier 
or fast register for the order. The next byte is the order itself in various 
stages of construction, and finally comes the address, if there is one. The 
character is used to •■control its construction except for subtypes and 1 which 
are special cases. 

Subtypes of Orders 

Short order, no address. The order is in the order byte and 
requires no further modification, except possibly the addition 
of a tag. 

1 Long order, fixed address „ This is similar to except that 
the order is long so that an additional byte contains the 
already calculated address « 

2 The address should start with a label, in which case xhe 
quarter word part will be added to the C field and the carry 
added back into the address. This results from any type of 
jump order except JLH, 

3 The address should not stari: with a label. The order will 
always be long, even if the address if just a modifier. This 
results from such orders as 

LDM 7^ A 



and 



CAD 9,2,B 



4 Short order will take the address mod 64 and put it in the B, C 
fields. Only useful for SSR orders. 

5 Short order without an address. Results from an..STR A, 3, 
A may only be a fast register, and not Fl, 

6 Similar to 5, but Fl is legalo Results from a CAD A, 3, 
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7 Similar to 5^ T^ut results from an LPR A or an SPR A. 

8 This may be a long or a short order. If the address field 
contains only modifiers, ATN's and SFW's are compiled, and 
a short order is produced in later passes. Otherwise 2 is 
added to the C field and it is made into a long order. 
Results from order such as CAM 8, A. 

These are followed "by an address which may 

a) involve no numbers (just modifiers) 

b) involve numbers 

c) be a fast register name 

In case (a) a short order is compiled, in case (b) a long 
order is compiled with the address construction 8, 3,N if 
there is no suitable positively-used modifier or with the 
construction M, 2, N if there is such a modifier M. In case 
(c) the construction F, 3, is used. 

The three types 12, 13 and Ik correspond to CAE, STR and 
CAD type order respectively. In the former, case (c) is 
illegal; in type I3, Fl is illegal. 

15 This is similar to case 3 except that it arises from order like 
LFR F,Ao The distinction is made in order to check that F is 
a register name. 
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3.1,3ol.3 The Address Field 

The address field consists of one or more bytes which are a (l-l) 
translation of the source card. Each number is represented in the 13 bits of 
one byte. Each name is represented in its 13-bit internal form. Operations 
are coded into three bits of a byte. In order to tell what the next byte is, 
two processes are used. 

a) If the last byte was a name or number, the next byte is an 
operation. 

b) A character extension occupies four bits of an operation 
byte to tell what the next bjrte is. 



TET 



•Character extension 
Operation 



The Operation Byte 

The codes for operations are; 






+ 


1 


- 


2 


^ 


3 


/ 


h 


) 


5 


( 



The codes for the character extension are : 

Integer follows 

1 Open bracket follows 

2 Name follows 

\ Operation byte follows 

8 Integer which is last byte follows 
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10 Name which is last byte follo-ws 
12 This is the last hyte 

The character extension for the first byte is in the reference byte, 



Examples ; 



L CAD A + Ml^ 



would appear as 



11622 

(L) 

10200 

(A) 

00002 

(Ml) 

00050 

00011 



Reference: Outside name, order type iX, extension 2 
Outside name in internal form (the address of the table entry) 
CAD order in octal 
Internal form of A 



+, name follows 



*, final number follows 
9 



assembles as 



DECQ 9/a, 7 



000^0 Pseudo order, number follows 

05020 Type 10 (DECQ), two quarters long, 

00011 9 

00072 /, last name follows 

(A) 

00010 Character extension for next quarter: 

00007 7 



last number follows 
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3<,1.4 Errors 

Pass I recognizes a number of errors which are listed in the error 
buffer,, The code listed for the errors is 512 + n where 



n IS 



1 
2 
3 

k 

5 
6 

7 
8 

9 
10 

11 
12 

13 
Ik 

15 
16 

17 

18 
19 



In case of 



Illegal character in address 

Character in column 7 

Name is longer than six digits, 
or appears in numeric field 

B field niimber greater than 15 

C field number is larger than 3 

Even C field in CAN type order 

Too many left or right parentheses 

Period used in other than CAD type 
order 

Illegal commia in address field 

Address field specified for short 
order, e„g., CAD 9,1,17 

Illegal address for FIL or FLD 

Illegal use of fast registers 

Undefined mnemonic 

Illegal character in location 

field 

Illegal number in SSR type 

Address runs beyond column, 72 

Pseudo order has too many address 
bytes 

EQU has no name in location field 

ENTRY card has error in address 
field name 



The action taken is 



An illegal "order" I77OO is assembled 
An illegal "order" 177OO is assembled 
Use integer instead 

Use mod 16 

Use mod k 

Make next odd number 

Address field set to integer 

Ignore period 

Ignore comma 

Ignore address field 

Use mod 4 or 8 respectively 

Continues 

Assemble illegal "order" 177OO 

Ignore name in location field 

Use mod 6k 

Assemble illegal "order" I77OO 

Assemble illegal "order" 17700 

Ignore 
Skip it 
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3,1.5 The Program Flow 

The over-all flow schematic is given below. 




RE^DC^RD, 
SAVE FOR LWCR 
LISTIM&.IMCRE- 
KE.BT CARD CttUNT 



ASSEMBIE PRWT 
awE CARD INi 
LlSTIIiG COm-ROL 



CCMMEkiT 




SAvr 

RESULT 



MWEMOWIC 




SETT GO 
SWITCH 



GO. EC'U, OTHER 



■=iE:T e:ou 

SW ITCH 



-••- 



MOTHER 



SET OUTSIDE 

MAMC TYPE 

IM TABLE 

CIF WE.CESS|l,RY) 



.1- 



iBRAMCH fa Ciek)ERM5[^_ 



SET UP ADDRE'5S 

FIELD ACCQRDIWG 

TO TYPE 1(0 

RCFEREttCt 

BUFFER 




M6MEREF BUFFER 
TO EQ.Li BUFFER 
AK)D ^S5EMBLE 
PRINT C^Rt> 
CQKjTH&L 



MOME REF BUFFEf 
TO DRUM BUFFER 
CP(>CKED)Attt)VJRlTi 
CikJ DRUH WHEU 
FULL 



SYSTETM 



SC6.M T^SLCa TO 
M^KE lip CALL LIST 
F6R TRANSFER 
MECTORS.WRITE 
mSLES Cl>5 DRUM 
WJD COHMERT TO 
PAS=,IF6t?MKr. 
DEFIHE MCs-MlS UK 
FO- F7 
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When a name is found in the location columns of other than a MACRJ^, it 
is looked up in the name table and its control bits are set according to the 
type of the name. Six bits are reserved for this. Codes used are: 

000000 Undefined (has only appeared in an address before) 

100000 Symbol (set by pseudos except DECQ, jZ5CTQ, EQU, CALL^ 
FIL and FLD) 

101000 Register (set by EQUF) 

110000 Modifier (set by EQUM) 

111000 Label (set by orders, EQUL, DECQ, CALL, j6cTQ, FIL and FLD) 

000100 Name used in a CALL but not yet defined. Nondefinitlon 
will lead to a transfer vector. 

The mnemonic is identified by looking it up in a table in a similar 
manner. When it is found, a second table is consulted for details of the order. 
The entry in this second table is found by adding a fixed amount to the address 
of the entry in the first table. The second table starts at the address MENTRY. 
Its format is 



012 



1213 



25 26 



38 39 



01 


Order 


Branch address 


10 


Pseudo order 


to generator 


11 


Macro 





51 



L 



Order bits for order, 
type that should be 
set in location name 
control in case of 
pseudo 



The first two bits are consulted to find out the type. If the outside name 
flag is on, orders set the name to be a label whereas pseudo orders use the 
first three bits of the last quarter to determine the name type. 

The order bits are saved for assembly, and then a branch to the address 
in quarter 2 is made. Note that quarter word 1 is not used for the mnemonic 
information. It does, however, contain information for receding the input 
character during INPUT described later. 
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The generators test the address field for the various types of 
address constructions allowed and generate suitable intermediate language. 
The bulk of this work is done by two pieces of program, CFD (C field) is 
transferred to by orders and constructions that might have a C field after the 
B field has been taken care of. For example, CAM type order must have a B 
field and may have a C field. WD (N field) takes care of the N field of orders 
and generates the variable address in intermediate language. 



Handling the Predefined Mames M0-M1$ and F0-F7 

These names are in the name table when it is loaded from tape. At 
the end of Pass I, a program enters their values in the appropriate locations 
of the table in Pass II format. They are treated as any other name by the 
rest of the Assembler. 
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3„1,5,1 Flow Charts of the Generators 



CAD^ CAE and STR Type Instructions 



BL{kMK 



OUTPUT ORDER 
BYTE SUBTYPE 
14- -SET 



CFD 21 















SET MARK 
2 IKJ M7 



SET MARK 
XICi Ml 



OUTPUT 
ORDER BYTE 



CFD 




SET M&.RK 
1 IM Ml 



exMUMERIC 



SET SUBTYPE 



WUMBEI 




MFD 1 




6TWE:R ^ WEXT 

>^HARACTER^ 



READ "\.MAME 
MANIE AKiD 
iOMBER, 



OTHE 



NAME TABLE 
LOOK UP 



ADD B FIELD 
TO ADDER 



OUTPUT ORDER 
BYTE,OlATPaTMftME 




SET TAG BIT 
OUTPLiT TAG 



NJFDd.8 



CFD 



NFDi,X 



CFD 
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CAM type 







f CAM j 



SET "8" IN M7 



[ LDM ) 



SET "4" IN M7 



SET "5' IN M7 




MAKE CAN 
TYPE 



ERROR 



ADD B FIELD 
TO ORDER 




BUNK 



\ 


YES 

■ 


0/P ORDER 
BYTE 


\ 


i 


SET SUBTYPE 

7 


' 


r 


NFD17 







SET "e" IN M7 

ZZ3 



CFD6 



JDC type 
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NAME TABLE 
LOOK-UP 



SET "TAG" BIT 
IN REF 



I 




NAME 



ADD B-FIELD 
TO ORDER 



0/p TAG 




READ 
CHARACTER 



ERROR 



I 



JOV 
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JOV type 




SET 
SUBTYPE Z 




* + -C 



ec NUMERIC 



NAME 




NAME TABLE 
LOOK- UP 



ADD C FIELD 
TO ORDER 



0/P NUMBER 



0/P NAME 



0/P ORDER 
BYTE 




NFD 



i 



OUTPUT 
ORDER BYTE 



i 



NFD 2 



NFD3,2 



SSR type 
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SET SUBTYPE 



NllME TABLE 
LMK- U P 




O/P ORDER BYTE 



SET"Ta&SED" 
ORDER BIT 



NFD17 




owumeric/'^ test 

Tblauk 



AMD MUnBEE 



O/P CiBOSR BTTE 



NFD17 




^ET 

B r\ELD 



CHCiRfcCTER 




REI^D 
cn^RftCTER 



O/P ORbER BYTE 



ERRl 



RE^D 
MUMBER 




O/P ORDER BYTE 



ADD 
C- FIELD 



BLAkivO- 


sMO 


ETRRi-O 


|,E. 










' 






NFDI7 



ERROR ■i 



I^ 



RE^D CHAR 



CFD& 



READ CUA? 



(CFDfcJ 





(OAME TABtE 
LOOK - UP 






O/P 
ORDER BSTC 





MO 












S.ET 
^UBTVPE 8 




SUBTVPC-a 




' 




. 






* 






K)PD1,2. 



O/P 
ORDEK WTE 



subtype: 
o 



ADD 
C FIELD 



OIP 
ORDER BVTE 



O/P 
ORDER BVTE 



MAKE IMTO CAt^TtiiP E 

VESj 




EKROR 



wroi? 



K 



<<;y^ 


SET 

subtvpe; 

3 


NO 








SGT 
SUBTYPE 

s 


j 




1 






MFD2 



ERROR 3 




O 

H 

O 





h:j CQ t? 

J» (D (D 


<! 


OQ o (tH 


H- 


fD d- CD 


m 


.. H- •• 


H- 


o 


() 


p 


l=s 






OAOO -J 




o H ro 




H) • —J 




vn ~-~~^ 




H • cr\ 




-P-H -p- 




o< 



LPM, LFR 



eeRoR 





<$> 

MO 


VES 

— ► 


SET 
aUBTVPE 3.3 








SET 


J ■ 










READ 
CHAE. 



MFDZ 




SET 

SUBTVPE o 



=.ET 
SUBTVPE 7 



"iET 
SUBTVPE fc 



I 



9>CT 
SUBTVPE 5 



fOFD17 



RC^D 
CHAR. 





ADD LAST 
BVTE IMTEGCE 
To CHAR 



0/P BVTE 

OF 

■EEKO 



NFDtV 



O 

u 



o 
o 



w 


iTl CQ O 


ro 


SB (D PJ 


<! 


OQ O c+ 


H- 


(D d- (D 


CQ 


.. H- •. 


H- 


O 


o 


t! 


p. 






-J CO -J 




S H ro 




^ = -^ 




, , ^^ ^~^ 




ti° ON 




-P-H ^^ 



-d- >H^ 




VO • H 




'"'-^ LTv 




1^- • <H 




OJ H G 




D— roco 




, ,' 


a 


a 


C) 


o 


•H 


•• -H •• 


m 


(U -P 0) 


•H 


■P o tsD 


!> 


acS^ 


0) 





<H 






o 






(U 






m 






^ 






-p 






o 






<u 






^ 






•r{ 






Ti 






(U 


« 






a 
o 

•H 

-P 




rH 


CJ 




H 






cS 


-P 




CQ 


m 




t=> 


ci 




& 


d 




H 


o 




T3 


H 




a 


Hi 




cd 


g 




c3" 


o 

a 


^ 


W 


-P 


\^ 


•\ 


•H 


s 


^ 


;s 




CS" 


m 




M 


CQ 

(I) 




•v 


^ 




fe 


:S 




cy 


01 




w 


n 




•\ 


01 




CQ 






W 


(1) 




pq 


:3 




•\ 


TJ 




CO 


o 




CO 


u 




m 


ft 




•s 


o 




o 


+^ 




o 






•v 


cd 




C5 


u 




K 


W) 




-«i. 


o 
ft 



+5 



RE^D 
CHk,R6.CTE:R 



setbrm:ket 

COJUT. J=C) 




tVPoPERarioM 




■5ET 'SUBTYPE 



MAKE ORDER 



re:6.d 
chnrmter 




OpePERCTOMC 




0\P L^';TBYTE 



C>/PREFE:RE>itE 

byte; 



Ut.METiiBLE: 
LOOK-UP 



O/P MUMBEB 



ADD O/P 

rox.L. 







RCKD 
CH&RKCTEIR 




0/POPERCTlOKl 







ivnCU SET 

BY PSEUDO tirao 
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I 



READ KIAME 



SET ORDER 
BYTE IN 0/p 



SET INITIAL 
VALUE OF 
ORDER BYTE 



:j 
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mio = 5240ocT 



mi — N 



-/cHR j 



READ CHAR. -mi 



mio' = 5240ocT 



mjO ="^10 + "^10 




YES 



^12 = rni3 

mi4' ' mi5 
mis' = 




YES 



YES 



fni5 = mi5©mi 



mi = 2®mi 



ftio « rrio + l 




YES 



O/P 4 BYTES 



YES 



EXIT 
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OCTQ is identical to DECQ except that the subroutine READWM which reads, names 
and numbers is modified to convert base 8 rather than base 10. 




1713 = 5010 OCT 



I 



SET ORDER 
BYTE IN 0/p 



SET "LAST BYTE 
INTEGER" IN 0/p 



I 



BLAN 




0/9 INTEGER 
ZERO 



I 



OTHER 



SET EXIT 
FROM N- FIELD 



EXIT TO 
COMMENTS 



N- FIELD 
EXIT ON COMMA 



I 



SET LAST BYTE 



SET "LAST BYTE 
INTEGER" IN 0/p 



I 



0/p INTEGER 
ZERO 



INCREASE 

BYTE COUNT 

IN ORDER BYTE 



INPUT 
CHARACTER 



Date: 


ll2.ll9\ 


Section: 


3.1.5.1 


Page: 


12 of \k 


Revision: 





N\UMBER= O 



E 



OUTPUT 
PSUEDO ORDER 



BLAMK 



OliTPUT L^c>T 
WUMBER 



I 



DC^ME 



READEC 



KiEXT 

:h^ra.cter. 

9 
OTHER 





MUMBER^O 



OUTPUT WUMBER 



EIRROR 



J 
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RE^D M^ME 




STORE IN XL 



EST WtX' 
^H/^RACTEI 
? 



BLAMK 




OUTPUT PSUEDO 
ORDER WITH 
COUK^T 
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ENTRY 



( ej^tryV 



RE^D LIST 
FRCSM DRUM 



ADD TCi L^ST 



READ NAkME 




PUT LIST 
BACK ONJ DRQM 
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3,.lo5»2 Subroutines Used 

lOSYS 

Each time that this program is called, a card is read from the input 
media. If the print object bit is on, then the image is also saved in a 25-card 
block and put on drum (the first 100 cards) or tape 6. Use of this subroutine 
also resets the INPUT subroutine to column 1 of the new card. 



INPUT 

Each use of this subroutine reads the next character from the source 
card image up to column 72. The character is receded and put in Ml, An 
attempt to read beyond column 72 causes an error to be listed. 



READNM 

This program is responsible for reading in names and numbers. It 
uses INPUT to read characters. When it is called, the first character to be 
read is in Ml, This should be an alphanumeric character. READNM reads until 
it finds a nonalphanumeric character. It then exits. MO has been increased 
by one for each character read. The next character is in Ml on exit. If a 
number (all numeric characters) was read, exit is to M3 + 2, If a name was 
read, exit is to M3 if MO < 0, to M3 + 1 if MO > 0. MO normally contains -7 
on entry, so that the exit to M3 + 1 corresponds to a name of more than six 
characters. If a name was read it appears in BCD, left justified in M12, M13^ 
and Ml,J+o MI5 contains the mod 6k sum of the BCD characters. 



MTLU and NTLU 

Mnemonic table look-up and name table look-up are two entries to a 
subroutine which searches for the appearance of the name in F7 in the mnemonic 
or name table. If the name is not there, MTLU exits to 2,M3 - 1 instead of 
the usual exit to M3. NTLU enters the name under these circumstances. The 
entry in the table is in r7 on exit, while its address is in MO. 



Date: 

Section: 
Page : 
Revision; 



3.1.5.2 
2 of 8 



The NAME table and the MNEMONIC table are split into 6k and I6 
subtables respectively. This is done on the basis of the table number which 
is the mod Gk or the mod l6-bit character sum. Each subtable has one or more 
control words. The first one for each table is stored in a base address plus 
table number. It has the format 



Address of this 
control word 



J 



Chain address to another — 
control word (0 = end of chain) 



■Address of first 
table entry- 
Minus number of table 
entries in block 



The entries of the table are arranged in blocks addressed from this control 
word. The mnemonic table has one block for each subtable, so the chain address 
of the first control word is empty. The name table uses blocks of I6 words. 
Each time that a block is full, another block and another control word are 
chained to the last control word until the memory is full. Full memory causes 
a SYSERR exit. 

The entries in each block are stored as differences. That is, the 
first entry in each block contains the actual value of the name or mnemonic, 
but subsequent entries contain the difference between this entry and the pre- 
ceding one . 



12.13 



25 26 



38^ ^k3 51 



C 



BCD name, left justified 
(first entry in block) or 
difference between this and 
the preceding name (sub- 
sequent entries in block) 



The six bits marked C are ignored in the table search, and are used by Pass I 
for control information. 
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The control words and the table areas for the mnemonic table are 
located below those of the name table. This fact is used by the program when 
an entry cannot be found. If it is in the mnemonic table area, an error exit 
is made. The name table occupies the area of memory between the top of the 
program and the highest available location. 



OUTPUT 

The output routine takes the quarter-word bytes, packed one per word, 
from locations REF, REF +1, ..., REF + M6 - 1 and packed them into the drum 
buffer area. When this area is full, the buffer is written onto the next slot 
on the drum. 



ERRl, ERR2, ..., etc . 

The error programs are, in some cases, subroutines^ in other cases, 
programs that take control and then return to the scan of the next card. All 
of them list an error in the error buffer with its number and the current card 
counter number. 



ADB 

Adds byte of an address field to the REF buffer according to the 
state of various control bits described below. This program has four entries, 
ADB, ADBl, ADB2 and ADB3 corresponding to outputting an operation byte, a name, 
a number, and to setting the end of the address field. The purpose of the 
program Is to take care of making up the character extension bits in an earlier 
byte. This may be just one byte earlier, or may be in the reference byte. 

M7 bit 1 is turned on when the character extension of the reference 
byte (which is held in M7 until the end of the address field) has been set. 
M5 bit 1 is set to a 1 when an operation byte is output into the address field. 
This means that the "last" indicator does not go into the reference character 
extension. When an operation byte is handed to ADB for output, it is saved in 
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3.1,5.3 Major Use of Modifiers in Pass I 

MO Is used during the READNM subroutine to count characters. It is set to 

-7 before being called so that READNM can make an error exit if a name is 
larger than six characters. 

Ml is used to return the latest character read from the INPUT subroutine. 

M5 bit is used to indicate that an operation byte of IL is being saved in 
M5 until the character extension is set. A zero indicates this fact. 

M5 bit 1 is set to a one when an operation byte is output into an address 
field. 

M5 bits 2-12 contain the next operation byte of IL. M5 is cleared at the 
start of each address field. 

M6 is set to REF at the start of each card. It contains the address of the 
next word of the REF buffer to be used to output IL. 

M7 contains a skeleton of the reference byte being constructed. The type, 
and outside name bits are set initially, and the subtype and character 
extension bits are set as soon as they are known. In the initial stages 
of the construction of an order, marks are set in the character extension 
according to the type. 

M7 bit 1 is used to indicate that the character extension of the reference 
byte has been inserted. 

M9 is used as a left-minus-right parenthesis counter in the N field scan. 
It must not become negative, and must be at the end of the scan. 

F7 is used to hold the name in table look-ups. 
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PI 0743 
PI 0744 
PI 0745 
PI 0746 
PI 0747 



w 


"Tj CQ 


^ 


(D 


5B (D 


<i 


OQ O 


cf 


H- 


CO ct 


(D 


m 


.. H- 


>> 


H- 


O 




o 


P 




p 








rooo 


— ] 




ro . 






I-' 


W 




o • 


—J 




Ha On 
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CO 
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CD 





TRA SERR 

NLU13 CAM 5»M9 

S8M 6,15 

SFR 5,H4 

ATN 9* It 

CAM 4 

CAH 5 

CAM 6»15 

CAH 7,M11+LLP8 

ADM 11?LLP8-16 

SFR 6,NLU10 

LFR 6,NLU10+2 

CAD F7 

TRA NLU6 

NLU14 ADM 6s 15 

CAD F7 

TRA NLU6 

NLU9 OECQL -1,-1,-1,0 

NLUIO OECQL 0,HTBL+1024+64, 

BSS 2 

READNM SFR 04,2,RD13 

SFR 06,2,RD13+1 

CAH 15,, 

CAM 08,, 

CSM 09,2,3 

CSM 10,2,1366 

CAD 15,3s 

Fit 

RD6 JNM 0ls0,RD7 

JNH 08,0,R03 

CRH 01,2,12 

JPM 01,0,RD2 

CRM 01,2,1 

RD6A MPY 09,3,10 



NAME TABLE FULL 
NEW CHAIN 
RESET COUNT 
RESTORE CONTROL 

NEW CONTROL 
END OF CHAIN 
COUNT IS ONE 
RESET «7= ADDRESS 
DECREASE BY 16 



MASK FOR NAME 



0,T0P-16 



FREE HENORY COUNTER 



SUBROUTINE TO READ INTEGERS AND NAMES 
ON ENTRY, FIRST CHARACTER IS IN Ml 
SUM OF CHARACTERS IS STORED IN M15 



CHARACTER COUNTER BINARY OIOIOIOI..--. 
INTEGER IS FORMED IN ACCUMALATOR 

BRANCH ON NON-ALPHAN CHARACTER 
BRANCH IF PREVIOUS ALPHA 

BRANCH IF ALPHA 

NUMBER,. - 

INTEGER CONVERSION, DECIMAL TO BINARY 



PI 0748 
PI 0749 
PI 0750 
PI 0751 
PI 0752 
PI 0753 
PI 0754 
PI 0755 
PI 0756 
PI 0757 
PI 0758 
PI 0759 
PI 0760 
PI 0761 
PI 0762 
PI 0763 
PI 0764 
PI 0765 
PI 0766 
PI 0767 
PI 0768 
PI 0769 
PI 0770 
PI 0771 
PI 0772 
PI 0773 
PI 0774 
PI 0775 
PI 0776 
PI 0777 
PI 0778 
PI 0779 
PI 0780 
PI 0781 
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03 







ANM 0lt3r63 

CAM 3,-11 

CJU 3tRD2A 

CAM 3,-10 

R02A ADD M3+10» 

JOC 00,0,R03 

RD2 CSM 08,2,1 

CRM 01,2,1 

RD3 ATN 01,, 

ADM 15,, 

JNM 10,0, RD4 

ANM 01,3,63 

ADM 14,, 

JOC 00,0,RD5 

RD4 ATNI 13, , 

CAM 12,, 

ATN 14s, 

CAM 13,, 

ANM 01,3*63 

CAM 14,, 

CRM 14,2,7 

ADM 09,2,1 

RD5 CRM 10,2,1 

ADM 00,2*1 

CAM 03,2, R06 

JOC 00,0, INPUT 

RD7 LOM 03,2,R013 

JNM 08,0,RD8 

LFR 06,2,RD13+1 

JLH 03,2,2 

R08 JNM 00,0, RD9 

LFR 06,2,RD13+1 

JLH 03,2,1 

RD9 JNM lOsCRDll 



CODE 
CORRECT ZERO 



SET ALPHA SWITCH 

FORM CHARACTER SUM 
JUMP IF LEFT HALF 

ADO RIGHT HALF 

SHIFT LEFT 13 PLACES 



PUT IN LEFT HALF 
INCREMENT 
LEFT/RISHT SWITCH 
CHARACTER COUNTER 

ENTER INPUT SUBROUTINE, RE TURN TO RD6 
SET EXIT ADDRESS 
NAME IF ALPHA READ 

NUMBER EXIT 

IF HO IS POSITIVE, NAME IS TOO LONG 

ILLEGAL NAME EXIT 



PI 0782 
PI 0783 
PI 0784 
PI 0785 
PI 0786 
PI 0787 
PI 0788 
PI 0789 
PI 0790 
PI 0791 
PI 0792 
PI 0793 
PI 0794 
PI 0795 
PI 0796 
PI 0797 
PI 0798 
PI 0799 
PI 0800 
PI 0801 
PI 0802 
PI 0803 
PI 0804 
PI 0805 
PI 0806 
PI 0807 
PI 0808 
PI 0809 
PI 0810 
PI 0811 
PI 0812 
PI 0813 
PI 0814 
PI 0815 
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c^ 




CO 
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CD 





ROll 


JZM 


09,0»RD10 


R012 


ATN 


13,, 




CAM 


12,, 




ATN 


14, s 




CAM 


13,, 




CAM 


14 




CJU 


09,0, RD12 


RDIO 


ANM 


15,2,63 




LFR 


06,2,RD13+L 




JLH 


03,, 


RD13 


8SS 


2 


INPUT 


SFR 


5, IT 




SFR 


7,IT-M 




LFR 


5f IT+3 




JZM 


6, INPUTl 


INPUT2 


LFR 


7jM7 




ORB 


m 




CAM 


1,M12 




CRN 


1,6 




CJU 


4jINPUT3 




CAM 


4,-2 




CJZ 


5,INPUT4 


INPUTS 


CRM 


l»7 


INPUT3 


ANM 


1,63 




SFR 


5t .IT+3 




LFR 


5,IT 




LFR 


7,IT+1 




LDH 


l,Ml+MENTR¥ 




JLH 


M3 


INPUT4 


ADM 


7,1 




CAM 


5,-4 




ADM 


6,1 




TRA 


INPUTS 


INPUTl 


CAM 


9,16 



SHIFT NAME UNTIL LEFT JUSTIFIED 



EXTRACT MOO 64 CHARACTER SUM 

LEGAL NAME EXIT 

SUBROUTINE TO READ NEXT CARD CHARACTER 



END OF CARD 
LOAD 8 CHARS 



QUARTER WORD 

LEFT HALF 

RESET HALF WORD COUNT 

END OF WORD 

EXTRACT CHARACTER 



CODE CONVERSION 
EXIT 



INCREMENT WORD COUNT 
EXCEEDED COLUMN 72 TYPE ERROR 



PI 0816 
PI 0817 
PI 0818 
PI 0819 
PI 0820 
PI 0821 
PI 0822 
PI 0823 
PI 0824 
PI 0825 
PI 0826 
PI 0827 
PI 0828 
PI 0829 
PI 0830 
PI 0831 
PI 0832 
PI 0833 
PI 0834 
Pi 0835 
PI 0836 
PI 0837 
PI 0838 
PI 0839 
PI 0840 
PI 0841 
PI 0842 
PI 0843 
PI 0844 
PI 0845 
PI 0846 
PI 0847 
PI 0848 
Pi 0849 
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00 




■f^ 




00 







IT 



DRUM 

TEMPI 

TEMP2 

ASSIGN 

ASS6 



T0M4 



ASSl 



ASS4 



ASS7 



JSB 

8SS 

DECQ 

DECQ 

DECQ 

EQUS 

BSS 

8SS 

FIL 

CAM 

ADM 

JNM 

csn 

JSB 
FIL 
J DC 
FIL 
J DC 
FIL 
JSB 
FIL 
JDC 
JSB 
FIL 
JNH 
ORM 
ATN 
SFR 
ATN 
CAM 
ATN 
SFR 
ADM 
ANN 



3,2,ERR1 

3 

-2t-4,-9,RDBUF 

0«-25,-5,0 

ILBUF,-4,-256,DRUH IL BUFFER COUNTER 

l + CT0l>-NA)/256+4 



STARTING FORD FOR CARD COUNTER 



I 

2 

4,2,2048 

06,2,1 

0I,0,ASS5 

00,2,7 

03,0,REA0NM 

00,0, A SSI 

0,,T0M4 

3,,ERR14 

00,0, ASS 7 
03,0,NTLU 

15,0rASS4 

15,2,4096 

00,, 

07,2,0 

00,, 

03,, 

06,1, 

04,, 

04,2,8 

01,2,63 



OUTSIDE NAME SAVED HERE 
MNEMONIC INFORMATION SAVED HERE 

0CT4000 
ASSIGN PSEUOO-OP 
NO ALPHA-NUM CHARACTER 

READ FIRST NAME 

NAME IS ONLV LEGAL EXIT 



NAME TABLE LOOK UP 

BRANCH IF ALREADY DEFINED 
OCT 10000 

DEFINE AS SYMBOL 



NAME TO IL 



PI 0850 
PI 0851 
PI 0852 
PI 0853 
PI 0854 
PI 0855 
PI 0856 
PI 0857 
PI 0858 
PI 0859 
Pi 0860 
PI 0861 
PI 0862 
PI 0863 
PI 0864 
PI 0865 
PI 0866 
PI 0867 
PI 0868 
PI 0869 
PI 0870 
PI 0871 
PI 0872 
PI 0873 
PI 0874 
PI 0875 
PI 0876 
PI 0877 
PI 0878 
PI 0879 
PI C88C 
PI 0881 
PI 0882 
PI 0883 
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00 





SBM 


01, 2, COMMA 






JZM 


01,0,ASS2 


COMMA, READ NEXT NAME 




ADH 


01*2, COMMA-BLANK 






JZM 


01,0,ASS3 


BLANK, O.K. 


ASS5 


JSB 


03,0,ERR1 


OTHER CHARACTERS ARE E 


ASS2 


JSB 
FIL 


03, Of INPUT 






JDC 


00,0,ASS6 




ASS3 


ATN 


04,, 






cm 


15,, 






JPM 


7,ASS3A 


NO OUTSIDE NAME 




ATN 


I 




ASS3A 


SFR 


07,2,REF+I 


STORE PSEUDO ORDER 




JDC 


00,0,NFD17 






FIL 






ENTRY 


LFR 


69IT+5 






LFR 


5,EHTl 






CAM 


7, Mil 






SFR 


5, ENTl 






CAM 


4, READ 






SFR 


5,ENT2 






CALL 


SYSAUX 


SAVE IL 


ENTl 


DECQL 


WRITEtIL8UF,0,0 






CALL 


SYSAUX 


LOAD CONTROL BLOCK TOO 




DECQ 


READ, ILBUF, 0,0 


IL BUFFER 




CALL 


SYSAUX 






DECQ 


WAIT, 0,0,0 


WAIT UNTIL LOADED 




LFR 


6,ILBUF 


FIRST {CONTROL) WORD 




JPM 


1,ENT5A 




ENT5 


ANM 


1,63 






JZM 


1,ENT4 






CALL 


INPUT 




ENT5A 


CSM 


0,7 






CALL 


REAONM 





PI 0884 
PI 0885 
PI 0886 
PI 0887 
PI 0888 
PI 0889 
PI 0890 
PI 0891 
PI 0892 
PI 0893 
PI 0894 
PI 0895 
PI 0896 
PI 0897 
PI 0898 
PI 0899 
PI 0900 
PI 0901 
PI 0902 
PI 0903 
PI 0904 
PI 0905 
PI 0906 
PI 0907 
PI 0908 
PI 0909 
PI 0910 
PI 0911 
PI 0912 
PI 0913 
PI 0914 
PI 0915 
PI 0916 
PI 0917 
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00 -P- 




co 



ENT6 



ENT3 



ENT4 



ENT2 



REM 



OCTQ 



SFR 


7, TEMPI 




TRA 


ENT3 




TRA 


ENT6 




FIL 






SFR 


6sTSl 




CAH 


9,19 




JSB 


3»3,ERfl4+l 




FIL 






TRA 


ENT5 




CALL 


NTLU 




LFR 


7, TEMPI 




CAM 


15, MO 




ATN 


8,1, 




SFR 


7,ILBUF+1 




CAM 


9,M8-256 




JNH 


gsENTS 




CAH 


4,5 




TRA 


SERR 




SFR 


6,ILBUF 




CALL 


SYSAUX 




OECQ 


WRITE, 1L8UF, 


»0,0 


CALL 


SYSAUX 




BSS 


i 




CALL 


SYSAUX 




OECQ 


WAIT, 0,0,0 




CAM 


7,368 




SFR 


5,R£F 




CAH 


6,REF+1 




CALL 


OUTPUT 




TRA 


BEG 2 




FIL 






LFR 


7,RD6A 




CAM 


15,8 




SFR 


7,RD6A 





NOT A NAME 

OITTO. 

THEREFORE ERROR TYPE 19 



READ NEXT NAME 
NAME TABLE LOOK UP 

ENTRY-NAHE, EXTERNAL INTERN 



TEST FOR HOT TOO MANY ENTRIES 
CODE FOR TOO MANY ENTRIES 
TOO MANY ENfRYS 
STORE CONTROL 

WRITE BACK ON DRUM 
RESTORE IL 



SET FOR OCTAL CONVERSION 



PI 0918 
PI 0919 
PI 0920 
PI 0921 
PI 0922 
PI 0923 
PI 0924 
PI 0925 
PI 0926 
PI 0927 
PI 0928 
PI 0929 
PI 0930 
PI 0931 
PI 0932 
PI 0933 
PI 0934 
PI 0935 
PI 0936 
PI 0937 
PI 0938 
PI 0939 
PI 0940 
PI 0941 
PI 0942 
PI 0943 
PI 0944 
PI 0945 
PI 0946 
PI 0947 
PI 0948 
PI 0949 
PI 0950 
PI 0951 
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CT\ 




00 -p- 




00 



DEC 



DECl 

T0M6 



DEC 2 



T0M7 



TaA 
FIL 

CAH 
CAM 
CAM 
CAH 
ADH 
CAM 
Jf»M 
ATN 
SFR 
AHM 
CAM 
JZM 
ADM 
JZM 
JSB 
FIL 
JSB 
FIL 
STR 
ANM 
CAM 
JZM 
AOM 
JZM 
JSB 
JSB 
FIL 
JPM 
ATN 
LDM 
AOM 
ANN 



OECQ 

12,, 
I3f t 

15,, 

06,2,1 

3s2,3872 

7s,T0M6 

0893*1 

4*2,REF+l 

01,3,63 

03, 2, -BLANK 

03*0, 0EC3 

3, 2, BLANK-COMMA 

03,0,DEC4 

03,0irREADEC 

03,0pERROR 

0? , 3 , 

0l,3s63 

03s 2, -COMMA 

03,0,DEC4 

03, 2, COMMA-BLANK 

03,0,OEC3 

03,0,ERR1 

03,0, INPUT 

7,,T0M7 

08,3,1 

3,2,REF+1 

3,2,32 

3,256 



DECIMAL CARD 

CLEAR F7 

0CT7440 NOTE 

STORE PSEUDO ORDER 

LEAD CHARACTER BLANK = 



LEAD CHARACTER COMMA 
READ NEXT NUMBER 

ERROR EXIT 

STORE IN F7 



LAST CHARACTER IS COMMA 

OR BLANK 

OTHERS ARE ERRORS 

READ NEXT CHARACTER 



INCREMENT PSEUDO ORDER COUNT 



PI 0952 
PI 0953 
Pi 0954 
PI 0955 
PI 0956 
PI 0957 
PI 0958 
PI 0959 
PI 0960 
Pi 0961 
PI 0962 
Pi 0963 
Pi 0964 
Pi 0965 
PI 0966 
PI 0967 
PI 0968 
Pi 0969 
PI 0970 
Pi 0971 
Pi 0972 
Pi 0973 
Pi 0974 
Pi 0975 
Pi 0976 
Pi 0977 
Pi 0978 
Pi 0979 
Pi 0980 
Pi 0981 
Pi 0982 
Pi 0983 
Pi 0984 
PI 0985 
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OD 4=- 









CAM 


2 




JUM 


2,0EC1 




CAM 


9,17 




JSB 


3,2,ERR1 


DEC 3 


CSM 


03,2,4 




ORB 


03,, 




ADM 


12,1, 




CAH 


ll»t 




ATN 


06,1, 




SFR 


06,0, 




CJU 


03,2fDEC3 




JDC 


00,0,NF03 


DEC4 


GSM 


03,2,4 




ORB 


03,, 




ADM 


12,1, 




CAM 


11,, 




ATN 


06,1, 




SFR 


06,0, 




CJU 


03,2,DEC4 




CAM 


12,, 




CAM 


13,, 




CAM 


14,, 




CAM 


15,, 




JDC 


00,0,0EC2 




FIL 




OCTQt 


LFR 


7,R06A 




CAM 


15,8 




SFR 


7,RD6A 




FIL 




DECQL 


CAM 


3,256 




ATN 


3,0 


DECQ 


CAM 


3,2568 




ADM 


6,1 




CAM 


05,, 



TOO MANY NUMBERS 
OUTPUT NUMBER I FINAL J 



OUTPUT NUMBER (NOT LAST) 



CLEAR F7 



DEC IMA 



PI 0986 
PI 0987 
PI 0988 
PI 0989 
PI 0990 
PI 0991 
PI 0992 
PI 0993 
PI 0994 
PI 0995 
PI 0996 
PI 0997 
PI 0998 
PI 0999 
PI 1000 
PI 1001 
PI 1002 
PI 1003 
PI 1004 
PI 1005 
PI 1006 
PI 1007 
PI 1008 
PI 1009 
PI 1010 
PI 1011 
PI 1012 
PI 1013 
PI 1014 
PI 1015 
PI 1016 
PI 1017 
PI 1018 
PI 1019 



CD 


(B (D 


s* 


<! 


m o 


d- 


H- 


(D c+ 


a> 


CQ 


.. H- 




H- 


O 




O 


a 




P 








OJOJ 


-< 




o • 






H 


K) 




O • 


-J 
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a^ 




CO 
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00 





DQ2 



T0H8 



DQl 



DQ4 



T0M9 



DQ3 

DQ5A 



CAH 
JPM 

ATH 
SFR 
SBM 

jzn 

ADM 
JZM 
ADM 
CAM 
TRA 
Fit 
JSB 
FIL 
CAM 
CAH 
JSB 
FIL 
JSB 
FIL 
JPM 
ATN 
LDM 
ADM 
ANN 
CAM 
JUM 
CAM 
JSB 
AOM 
AOM 
CAM 
CAM 
TRA 



09,, 

7,,T0M8 

08,3,1 

4s2,REF+l 

0i,2sC0MMA+4Q96 

0l,0,0Q3 

01, 2s COMMA-BLANK 

1,DQ5A 

l,2»BLANK+4096 

04,2,0Q1 

NFD2A 

03,0,ADB3 

05,2,4096 

0l,2,COHHA-i-4Q96 

03«0,ADB 

03,0, INPUT 

7s*T0M9 

08,3,1 

39 2jREF*l 

03,2,8 

3,248 

2s~248 

2,T0M100 

9,17 

3,2,ERRi 

1, COMMA-BLANK 

l,BLANK-4096 



4,DQ1 

1,NFD18 



STORE PSEUDO ORDER 

LEAD COMMA 

BLANK FIELD IN OECQ 

RESET Ml 

SET EXIT TO OQl 

GO TO NAME FIELD READ 

OUTPUT LAST BYTE 



OUTPUT NEXT CHARACTER EXTENSION 
READ NEXT CHARACTER 



TOO MANY FIELDS IN DECQ 



RESET Ml 

INTEGER ZERO 

EXIT TO DQl 

GO TO NAME FIELD READ 



PI 1020 
PI 1021 
PI 1022 
PI 1(123 
PI 1024 
PI 1025 
PI 1026 
PI 1027 
PI 1028 
PI 1029 
PI 1030 
PI 1031 
PI 1032 
PI 1033 
PI 1034 
PI 1035 
PI 1036 
PI 1037 
PI 1038 
PI 1039 
PI 1040 
PI 1041 
PI 1042 
PI 1043 
PI 1044 
PI 1045 
PI 1046 
Pi 1047 
PI 1048 
PI 1049 
PI 1050 
PI 1051 
PI 1052 
PI 1053 
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00 -P- 




OO 



TOM 100 


CAM 


2 






TRA 


DQ2 






FIL 






CHR 


CAM 


11,2,3584 


OCT7000 CHR PSEUDO 




CSM 


00,2,7 






JSB 


03,0,READNM 


READ NUMBER OF CHARAC 




FIL 








JSB 


03,0,ERR1 






FIL 






CHR2 


JSB 
FIL 


03,0,eRRI 






SIA 


00,, 


NUMBER TO MO 




JNM 


00,0, CHR 2 


TESTS FOR LESS THAN 




Jin 


0,CHR2 







SBM 


0,2,57 






JPH 


00,0,CHR2 


AND GREATER THAN 56 




ADM 


0,2,64 






ANM 


0,3,248 


0CT370 




CAM 


03,, 






CRM 


03,3,11 






ADM 


11,, 






ATN 


06,1, 






SFR 


06,, 


OUTPUT PSEUOO ORDER 




SBM 


0i,2,C0MMA+4Q96 






JUM 


01,0rCHR9 


NOT COMMA, ERROR 




CAM 


0,7"H0 


CHARACTER COUNT 




ANN 


0,-8 






CAM 


9 


WORD COUNT 




SBM 


9,M0+l 






CAM 


15 






CAM 


10,-2 






CAM 


11 






JZM 


0,HF017 


NO CHARACTERS 


CHR4 


CALL 


INPUT 


READ CHARACTER 



PI 1054 
PI 1055 
PI 1056 
PI 1057 
PI 1058 
PI 1059 
PI 1060 
PI 1061 
PI 1062 
PI 1063 
PI 1064 
PI 1065 
PI 1066 
PI 1067 
PI 1068 
PI 1069 
PI 1070 
PI 1071 
PI 1072 
PI 1073 
PI 1074 
PI 1075 
PI 1076 
PI 1077 
PI 1078 
PI 1079 
PI 1080 
PI 1081 
PI 1082 
PI 1083 
PI 1084 
PI 1085 
PI 1086 
PI 1087 
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CHR7 


ANN 


1,63 




ADM 
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CRH 


15,7 




CJU 


10,CHR5 




CAM 


10,-2 




CRM 


15,6 




ATN 
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CAH 


15 


CHR5 


JUH 


11,CHR6 
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0sCHR4 




CAM 
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11,1 


CHR6 


CJU 


9,CHR7 
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NFD17 


CHR9 


JSB 
FIL 


03,0,ERR1 


EQUL 


SFR 


5sNFD22 




LFR 


5,IT+3 




CAH 


14* = i 




CAH 


15, Ml 


EQUL3 


ADM 


14,1 




CALL 


INPUT 




ANN 


1,63 




CAM 


3 




JZM 


3,EQULi 




S8M 


3 t COMMA 




JUH 


3,EQUL3 




JUH 


14,EREQUL 




FIL 




EQUL I A 


ANN 


15,63 




CAM 


9,-4 




JPH 


9,£REQUL 




CALL 


INPUT 



ADD TO Mi 5 
LEFT HALF 

OUTPUT IL BYTE 



CHARACTER COUNT 
BLANK 

FINISH LAST WORD 



CHECK IF NEXT CHAR IS COMMA 



BLANK, NO COMMA 

NOT COMMA 
INCORRECT (HWORD 



RANGE OF Q-HORD IS TOO LARGE 



PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
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Pi 
PI 
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1089 
1090 
1091 
1092 
1 09 3 
1094 
1095 
1096 
1097 
1098 
1099 
iiOO 
llOl 
1102 
1103 
1104 
1105 
1106 
HOT 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
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CD 



EQULl 



EQUL2 



EREQUL 



EQUS 



EQUF 



EQUM 



EQU2 



EQUl 



CAM 
TRA 
SFR 
CAM 
CAH 
LFR 
JDC 
CAM 
SFR 
CAM 
CAM 
JDC 
FIL 
CAH 
JDC 
FIL 
CAM 
JDC 
FIL 
CAM 
CAM 
JPM 
LDM 
ATN 
SFR 
LFR 
SFR 
ATN 
SFR 
JDC 
FIL 
JDC 
FIL 
JSB 



3,7940+H9 

EQUL2 

5,IT+3 

3,7936 

1,H15 

5,NFD22 

0,2, EQUM 

15 

6,TSl 

3,EQULIA 

9,5 

0,3,ERR4+1 

3,2,7168 

0,2, EQUM 

3j2,7424 

0,2,EQUH 

3*2,7680 

9s 18 

7, 2, ERR I 

15, 2, COUNT 

06 , I , 

07,, 

07,2,EQU2 

07,2,NF022 

06,1, 

04,, 

00,0,NF02 

00,0, EQUl 

03,0,0PEQU 



RESET INPUT COUNT 



0CT16000 SET PSEUDO OPS 
OCT 16400 

OCT 17000 

NO NAME IN EQU PSEUD/ 

OUTPUT CARD NUMBER TO IL 

SET EXIT FROM N-FIELD 

OUTPUT PSEUOO OP 
GO TO N-FIELO 

OUTPUT IL TO EQU BUFFER 



PL 

PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
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1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1L43 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
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FIL 




LFR 


07,2,MAC12 


SFR 


07,2,NFD22 


JOC 


00,0,NFD22 


EQU SFR 


04,2tT8 


SFR 


07,2,T9 


LFR 


04, 2, MAKEUP 


ATN 


06, s 


CSM 


00,2f-REF 


SFR 


05f29REF 


LDH 


07,2,REF+3 


SBM 


6,REF-8-36 


CAH 


9,IT 


JPM 


6ff2,ERRl 


CRM 


06,3,10 


ADN 


7,249 


SFR 


05,2sREF+3 


CAM 


04,, 


LFR 


07,2,MAKEWD 


1 ATN 


13,, 


CAM 


12,, 


ATN 


14,, 


CAM 


13,, 


ATN 


15,, 


CAM 


14,, 


ATN 


04, I, 


LDM 


15,2,REF 


CJU 


02,0,0P2 


ATN 


03,1, 


SFR 


07,, 


CSH 


02,2,4 


'2 CJU 


O.OPl 


•3 SFR 


07,2sMAKEH0 


SFR 


04, 2, MAKEUP 



RESET N-FIELO EXIT 

OUTPUT IL BYTE INDICATING ONE CARD 
EQU OUTPUT SUBROUTINE 



NUMBER OF BYTES 
REFERENCE 



ADDRESS TOO LONG 

LENGTH OF ADDRESS TO PSEUDO OF EQU 

SHIFT LEFT 13 BITS 



INSERT NEXT BYTE 
MOT LAST QUARTER 



NOT LAST BYTE 

STORE EQU COUNTER BACK 



PI 
PI 
PI 
PI 
Pi 
Pi 
PI 
PI 
PI 
Pi 
PI 
PI 
PI 
PI 
PI 
PI 

Pi 
PI 
PI 
Pi 
Pi 
Pi 
Pi 
PI 
PI 
PI 
PI 
PI 
Pi 
PI 
Pi 
PI 
PI 
Pi 



1156 
1157 
1158 
1159 
1160 
1161 
1162 
li63 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
IIBO 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
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3,MAKEWD 
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4,EQU 




JPM 


3tSERR 
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04,2,T8 
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07,2,T9 
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05.2fREF 




CAM 


06,2,REF+1 
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03s, 


T8 


8SS 
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CAM 
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ATN 
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COMMON 


CAM 


3,1280 




ATN 


6,1, 




SFR 
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JNM 


l,ERRl 




CSM 


0,7 




CALL 


READNM 




TRA 


ERRl 




FIL 






TRA 


ERRl 




FIL 






SIA 
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CAM 


3, MO 




ATN 


6,1, 




SFR 
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ANM 


1,63 




JZH 


l82,NF03 




TRA 


ERRl 




Fit 




ORG 


CAM 


3,2,1024 


0R61 


ATN 


06,1, 



TOO MANY EQU TYPES 



OCT560 REFERENCE FOR SINGLE CARD 



EXIT 



OCT 01000 



BLANK IS NEXT 



OCT2000 ORG PSEUDO ORDER 
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1190 


PI 


1191 


PI 


1192 


PI 


1193 


PI 


1194 


PI 


1195 


PI 


1196 


PI 


1197 


PI 


1198 


PI 


1199 


PI 


1200 


PI 


1201 


PI 


1202 


PI 


1203 


Pi 


1204 


PI 


1205 


PI 


1206 


PI 


1207 


PI 


1208 


PI 


1209 


PI 
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PI 


1211 


PI 


1212 


PI 
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PI 


1214 


Pi 


1215 


PI 


1216 


PI 
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PI 
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PI 
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1220 


PI 


1221 
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1223 



W iTl CQ 
(D fO CD 


y 


<! OQ O 


c+ 


H- (D c+ 


(D 


M .. H- 




H- O 




O P 




P 




UJ UJ 


-<1 


a> . 




M 


ro 


O • 


^ 


i-b m 






a\ 


00 


4=- 


cx> 







SFR 


04^9 




ANN 
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CAN 
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JUH 


3,NFD2 




CAO 


15,3, 




TRA 


NF018 




FIL 




BSS 


CAM 


3»2,512 




JDC 


OOsOfORGl 




FIL 




BES 


CAM 


3s 2, 768 




JDC 


00,0,ORG1 




FIL 




GO 


CAM 


3s 2s 1536 




LFR 


0792sG01 




SFR 


07s2,8EG3 




ANN 


1,63 




CA« 


12 




JZM 


12i,60B0yi 




JDC 


00,0,ORG1 




FIL 




GOl 


JDC 
FIL 


0Os0sGO2 


FLD 


CAM 


3s2,256 




JDC 


OOsltFIL 


FIL 


CAM 


03s, 




ATN 


06,1s 




SFR 


048 9 




JNM 


OltOfNFDl? 




CSM 


00,2*7 




JSB 


03f0rREADHM 




FIL 






JSB 


OSsOpERRl 




FIL 





OCTIOOO BSS PSEUDO 

0CT1400 BES PSEUDO 

OCT3000 GO PSEUDO 
OVERWRITE BEGINNING OF 

CARD TO EXIT TO G02 

0CT400 FLD PSEUDO 
FIL PSEUDO 



IF NOT ALPHA-NUM, GO TO N FIELD 
OUTPUT 



PI 1224 
PI 1225 
PI 1226 
PI 1227 
PI 1228 
PI 1229 
PI 1230 
PI 1231 
PI 1232 
PI 1233 
PI 1234 
PI 1235 
PI 1236 
PI 1237 
PI 1238 
PI 1239 
PI 1240 
PI 1241 
PI 1242 
PI 1243 
PI 1244 
PI 1245 
PI 1246 
PI 1247 
PI 1248 
PI 1249 
PI 1250 
PI 1251 
PI 1252 
PI 1253 
PI 1254 
PI 1255 
PI 1256 
PI 1257 
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FIL 


03,0,ERRll 
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CDSTRT 


CAN 


06,2,REF+l 




CAN 
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CDS2 


JSB 


03,0, INPUT 




FIL 






ANN 


I963 




CAN 


3,-44 




JZM 


3, REN 




JPM 


0I,0,CDS3 




ANN 


01,3,63 



ONLY INTEGER IS LEGAL 



TEST FOR LEGAL ADDRESS 



ADD TO PSEUOO ORDER SITS 10-12 



INITIALISE N6= IL OUTPUT COUNT 
CLEAR REFERENCE 

CLEAR NEXT BYTE AND INDICATOR 
SET LOCATION FIELD COUNT 
READ FIRST CHARACTER 



ALPHA-NUN 



Pt 1258 
PI 1259 
PI 1260 
PI 1261 
PI 1262 
PI 1263 
PI 1264 
PI 1265 
PI 1266 
PI 1267 
PI 1268 
Pi 1269 
PI 1270 
Pi 1271 
PI 1272 
PI 1273 
PI 1274 
PI 1275 
PI 1276 
PI 1277 
PI 1278 
PI 1279 
PI 1280 
PI 1281 
PI 1282 
PI 1283 
PI 1284 
PI 1285 
PI 1286 
PI 1287 
PI 1288 
PI 1289 
PI 1290 
PI 1291 
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RDH 
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CAM 


03, 2, -BLANK 


JZM 


03,0sCDSl 


JSB 


03sO,ERRI4 


Fit 
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JDC 


OOtOsRDM 


JSB 


03f0sREADNM 


FIL 




JDC 


00»0,CDS5 


FIL 




JSB 


03,0,ERR2 


FIL 




JSB 
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03,0, INPUT 


FIL 
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CAM 
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JZM 
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JSB 
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FIL 
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CAH 
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3,,T0M12 
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03,0sERRl 


JSB 


3,,REA0NM 


FIL 





BLANK O.K. 



COUNT THROUGH LOCATION FIELD 
GO TO READ MNEMONIC 
READ NAME 



ONLY NAME LEGAL 



READ NEXT CHARACTER 



BLANK O.K. 

COUNT THROUGH LOCATION FIELD 

SAVE NAME IN TEMPI 

OCT 10000 SET OUTSIDE NAME BIT 
INCREMENT M6, ALMAYS JUMP 
COUNT FOR MNEMONIC FIELD 
READ FIRST CHARACTER 

OCT 14000 

ALPHA CHARACTER O.K. 

READ MNEMONIC 



PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 



1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
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FIL 
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03,0,ERR13 


FIL 




JS8 


03jO(rERRi3 


FIL 




JS8 


03,0jMTlU 
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03,0,ERR13 


ADH 


0,HENTRY-«A 


ATN 


00 s» 


LFR 


07,, 


ANN 


12? 1 


CAM 
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JZM 


3,R0H1A 


SFR 


6,REF+1 


LFR 
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ANM 


lOfS 


CRN 


10,3 


EOM 
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JU« 


3sERRl 


LFR 
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ANH 


12,8L90 


JPM 


12,R0M4 


CRN 


12,12 


CAM 


03, s 


JNM 


03,0,RDH15 


JPM 


07,0,RDH2 


SFR 


07,2,TEHP2 


LFR 


07,2sTEHPl 


JSB 


03,0tNTLU 


FIL 




JNM 


15,^0, RDM9 


LFR 


07,2,T£MP2 



SAVE COUfIT OF NHEMONIC FIELD 
IF NAME-ONLY LEGAL CASE 



TABLE LOOK UP 
NOT PRESENT 



GET BINARY INFORMATION FROM MENTRY 



NOT PROTECTED ORDER 



ILLEGAL PROTECTED ORDER 



MACRO ORDER 

NO OUTSIDE JIAME 



TABLE LOOK UP NAME 
PREVIOUSLY DEFINED 



PI 1326 
PI 1327 
PI 1328 
PI 1329 
PI 1330 
PI 1331 
PI a332 
PI 1333 
PI 1334 
PI 1335 
PI 1336 
PI 1337 
PI 1338 
PI 1339 
PI 1340 
PI 1341 
PI 1342 
PI 1343 
PI 1344 
PI 1345 
PI 1346 
PI 1347 
PI 1348 
PI 1349 
PI 1350 
PI 1351 
PI 1352 
PI 1353 
Pi 1354 
PI 1355 
PI 1356 
PI 1357 
PI 1358 
PI 1359 





^Tj CQ fcl 
fo fD ^ 


<l 


OQ O rf- 


H- 


(D ct fD 


m 


.. H- •• 


H- 


O 


o 


P 


?. 






-I^OO -^ 




O • ^-- 




M ro 




O •> -J 




hj a\~-^ 




ON 




CO -1=- 




oo 



RDMll 



RDH9 



RDM2 



RDM6 



RDM5 



RDM? 



RDMIO 



NFD 



JNH 
CAM 
ATN 
LFR 
ATN 
ADH 
ATN 
SFR 
LFR 
ATN 
CAM 
SFR 
ANM 
CAM 
CRM 
AOM 
SFR 
LDM 
ANH 
CAM 
JZM 
JDC 
JS8 
FIL 
CJU 
JDC 
JSB 
FIL 
JLH 
ATN 
CAM 
JDC 
FIL 
JS8 



12,0, RDMIO 
3s2,7168 
00s » 
07,, 

039 s 

15,, 

00, , 

07,, 

07,2,TEMP2 

00, , 

03,, 

4,REF+l 

12,3,6144 

03, , 

03,3,7 

07,, 

07,2sTEMP2 

00,2,«1 

01,3,63 

03, 2, -BLANK 

03,0,RDM5 

00, 2, RDM? 

03,0, INPUT 

00,2sR0M6 
00, 2, RDM? 

03, Ov INPUT 

M14 

15,, 

03,, 

00,0,ROHll 

03,0, INPUT 



PSEUDO ORDER 

0CT16000 SET LABEL BITS 

NAME 

SET TYPE BITS 



STORE IN TABLE 
ORDER BITS 

OUTSIDE NAME TO IL 

OCT14000 

CARD TYPE TO REFERENCE 

COUNT OF MNEMONIC FIELD 

TEST FOR BLANK 

ON TO ADDRESS FIELD 
READ NEXT CHARACTER 

COUNT THROUGH NMEMONIC FIELD 

READ NEXT CHARACTER 

BRANCH TO TYPE SUBPROGRAM 
NAME TYPE BITS TO NAME TABLE 

N-FIELO READ CHAR 



PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
Pi 
PI 
PI 
PI 



1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
13?3 
1374 
1375 
1376 
137? 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
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03 



NFD2 



NF02A 



NFD4 



NFD14 



NFD5 



NFD8 



FIL 

CAM 

CAH 

JPM 

CRM 

CAH 

JNM 

ANM 

CAM 

4ZH 

ADM 

JZM 

ADM 

JZM 

JS8 

JS8 

FIL 

JSB 

FIL 

JPM 

ANM 

CAM 

JZM 

JSB 

ADM 

JSB 

FIL 

JDC 

CSM 

JSB 

FIL 

JOC 

FIL 

JDC 



09,, 

05,, 

ljO,NFD8 

01,3,12 

03,, 

03sO,NFD4 

01,3,63 

039 2s-BLANK 

03,0,NFD3 

03, 2 5 BLANK-PERI 00 

03s0t-NFOI2 

03,2,PERIOD-OPENBR 

03sO,NF05 

03,0,ERR1 

03,0sAO8 



CLEAR PARENTHESIS COUNT 



ALPHA-NUH 



OPERATION TYPE 



03, Os INPUT 

01,0, NFDB 

01,3,63 

03,2,-OPENBR 

03,0,NF05 

03,0,ERRl 

09,2,1 

03,0,A0B4 

00,0,NFD14 

00,2,7 

03sO,READNM 

OOpOsNFDl 

0G»0,NFD21 



BLANK (END OF ADDRESS 3 

PERIOD 

OPEN BRACKET 

OTHERS ILLEGAL 

ADO OPERATION TO OUTPUT 

READ NEXT CHAR 

ALPHA-NUH 



OR OPEN BRACKET MAY FOLLOW OPERATION 
INCREASE BRACKET COUNT 

GO TO NEXT ITEM 
NEXT CHAR COUNTER 
READ NAME 

NAME 

ERROR 



PI 1394 
PI 1395 
PI 1396 
PI 1397 
PI 1398 
PI 1399 
PI 1400 
PI 1401 
PI 1402 
PI 1403 
PI 1404 
PI 1405 
PI 1406 
PI 1407 
PI 1408 
PI 1409 
PI 1410 
PI 1411 
PL 1412 
PI 1413 
PI 1414 
PI 1415 
PI 1416 
PI 1417 
PI 1418 
PI 1419 
PI 1420 
PI 1421 
PI 1422 
PI 1423 
PI 1424 
Pt 1425 
PL 1426 
PI 142? 
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1^3 0>~---. 




CJN 




OO ^ 




OO 



NFDl 



NFDIA 



NFDIO 



NFD9 



NFD3 



NF017 



FIL 

J DC 
JS8 

FIL 
JSB 
FIL 
JPH 
CRM 
CAM 
JNM 
ANH 
CAM 
JZH 
AOM 
JZM 
ADH 
JZM 
ADH 
JZH 
JSB 
S6K 
JNM 
JSB 
FIL 
JSB 
FIL 
JDC 
JUH 
JSB 
FIL 
ATN 
CAM 
SFR 
FIL 



00,0,NF018 
03fOsNTLU 



3s,AD8l 



01 J 0, 
01»3, 

03*0, 
01,3, 
03s 2 5- 
03,0s 
0352, 
03,0, 
03,2 s 
03* , 
03,2, 
03vO, 
03s 0, 
09,2, 
09,0, 
03,0, 



NF01& 
12 

NFD4 

63 

-BLANK 

NFD3 

BLANK-PERIOD 

NFD12 

PERIOD-COHMA 

NF06 

COHHA-CLOSBR 

NFD9 

ERRl 

I 

NFDi5 

ADB 



03, Ov INPUT 

00,0,NF010 
09t-0,NFD15 
03,0, ADB3 

0?9, 

U,, 

06,2,REF 



NUMBER 

NAME TABLE LOOK UP 

NAME TO IL STREAM 

NEXT CHARACTER ALFHA-NUM=ERROR 



OPERATION 
OR BLANK 
OR PERIOD 



OR COMMA 

OR CLOSE BRACKET ARE LEGAL AFTER 

NAME OR NUMBER 

DECREASE BRACKET COUNT 
ERROR IF NEGATIVE 
ADD TO IL STREAM 

READ NEXT CHARACTER 



ERROR IF BRACKET COUNT 
OUTPUT LAST BITS IN IL 



OUTPUT REFERENCE 



NOT ZERO 



PI 1428 
PI 1429 
PI 1430 
PI 1431 
PI 1432 
PI 1433 
PI 1434 
PI 1435 
Pi 1436 
PI 1437 
Pi 1438 
PI 1439 
PI 1440 
PI 1441 
PI 1442 
PI 1443 
PI 1444 
PI 1445 
PI 1446 
PI 1447 
PI 1448 
PI 1449 
PI 1450 
PI 1451 
PI 1452 
Fl 1453 
Pi 1454 
Pi 1455 
PI 1456 
PI 1457 
PI 1458 
PI 1459 
PI 1460 
PI 1461 
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OA 




00 -p- 




CX> 



NFD22 

NFOil 
NF06 



NFD12 



NFD19 



NF013 



NF020 



NFD23 



JS8 
FIL 
TRA 
ANM 
CAH 
CRH 
JNH 
JSB 
FIL 
JDC 

mn 

CAH 
JZM 
JSB 
FIL 
JDC 
ANM 
ADM 
CAM 
JPM 
ADM 
ATN 
LFR 
ADH 
ATN 
SFR 
JSB 
FIL 
ANM 
CAM 
JZM 
JSB 
CRH 
CAM 



03 t Of OUTPUT 

BEG2 

7,3,48 

03,, 

03,2,6 

03,0,flFD7 

03,0,ERR9 

OO,O,NF02O 

7,3,960 

03,2,-896 

03,0,NF019 

03,0,ERR8 

0Or0,NFD3 

7,2,7231 

7,2,192 

03,2,1 

07,0,MF013 

03,2,1 

03,, 

07,2,REF 

15,2,39 

03,, 

07,2,REF 

03,0, INPUT 

01,3,63 

03r2,-BLANK 

03,0,NFD23 

03,0,ERR1 

07,3,12 

03,, 



OUTPUT ILSTREAM TO IL BUFFER 

RETURN FOR NEXT CARD 
0CT60 



OCT1700 



OCT16077 
OCT 300 



0CT47 



PI 1462 
PI 1463 
PI 1464 
PI 1465 
PI 1466 
Pi 1467 
PI 1468 
Pi 1469 
PI 1470 
PI 1471 
PI 1472 
PI 1473 
Pi 1474 
PI 1475 
PI 1476 
PI 1477 
PI 1478 
PI 1479 
PI 1480 
PI 1481 
PI 1482 
PI 1483 
PI 1484 
PI 1485 
PI I486 
PI 1487 
PI 1488 
PI 1489 
PI 1490 
PI 1491 
PI 1492 
PI 1493 
PI 1494 
PI 1495 



w 


hd CQ O 


fB 


SB CD f» 


<1 


OQ O cl- 


H- 


(T> c+ CD 
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00 





JN« 


03,0,NFD3 




ADM 


07,2,8 




CAM 


03,, 




ATN 


06,1, 




SFR 


04,, 




J DC 


00,0,NFD17 


NFD16 


JS8 


03,0sERRl 


NFD15 


JS8 
FIL 


03,0,ERR7 




JDC 


00,0,NFD17 


NF07 


JUM 


9,NFD15 




JLH 


m 


NFD18 


SIA 


00, s 




JS8 


03v0,ADB2 




Fit 






JDC 


00,0,NFD10 


NFD21 


JSB 
FIL 


03,0,ERR3 




JDC 


OOsCfstFDia 


OUTPUT 


SFR 


7jIT 




SFR 


6, IT + l 




SFR 


5, IT+2 




LFR 


6,IT+5 




CAM 


5,REF 




CSM 


6sM6-MTBL 




JNM 


6,LBERR 




SBM 


6,MT8L-REF 


0UTPT2 


LFR 


7,M8 




CAM 


12,M13 




CAM 


13,M14 




CAM 


14,MI5 




ATN 


5,1, 




LDM 


15,0 




SFR 


7,M8 



NEXT BUFFER WORD 



PI 1496 
PI 1497 
PI 1498 
PI 1499 
PI 15Q0 
PI 1501 
PI 1502 
PI 1503 
PI 1504 
PI 1505 
PI 1506 
PI 150? 
PI 1508 
PI 1509 
PI 1510 
PI 1511 
PL 1512 
PI 1513 
PI 1514 
PI 1515 
PI 1516 
PI 1517 
PI 1518 
PI 1519 
PI 1520 
PI 1521 
PI 1522 
PI 1523 
PI 1524 
PI 1525 
PI 1526 
PI 1527 
PI 1528 
PI 1529 
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CO -P- 




00 



CJU 9,0UTPT1 

CAM 9s-4 

AOH 8,1 

CJU 10,0UTPTI 

CAM 10,-256 

LFR 7,0UTf>T3 

CAM 13,M8-256 

ATM llsl, 

CAM 15 

SFR 790UTPT3 

CAD F4 

CALL SYSAUX 

0UTPT3 OECQL WRITE, 0,0,0 

CAM SsILBUF 

CALL SYSAUX 

OECQ WAIT, 0,0,0 

SAM F4 

OUTPTl CaU 6,0UTPT2 

SFR 6,IT*5 

LFR 5,IT4^2 

LFR 6,IT+1 

LFR 7, IT 

JLH M3 

CRM 07,3,12 

CAM 15s* . 

JNM 15,09 ADB 14 

ADM 07,2,4 

ORM 7,2,2048 

CAM 05,2,1 

ANN Is 448 

ADM 05,, 

CRM 05,2,2 

JLH 03,, 

A0B14 JNM 05?0,A085 



NOT FOURTH QUARTER 



A08 



AD815 
A085 



NOT END OF BUFFER 



PI 1530 

PI 1531 

PI 1532 

PI 1533 

PI 1534 

PI 1535 

PI 1536 

PI 1537 

PI 1538 

PI 1539 

PI 1540 

PI 1541 

PI 1542 

PI 1543 

PI 1544 

PI 1545 

PI 1546 

PI 1547 

PI 1548 

PI 1549 

PI 1550 

PI 1551 

PI 1552 

SUBRT. -ADO OPERATION PROH MO TO IL STREPl 1553 

PI 1554 

JUMP IF REFERENCE CHARACTER EXTENSION ALPl 1555 

SET OTHERWISE SET TO OPERAND PI 1556 

OCT4000 CHAR. EXT SET IN M7 PI 1557 

M5 IN USE BIT IN BITl PI 1558 

EXTRACT OPERATION CODE PI 1559 

PI 1560 

PI 1561 

EXIT PI 1562 

LAST BYTE WAS NAME/NUMBER PI 1563 
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ADB17 


ADM 


05,2,4 


SET OPERATION EXT. 


IN 


PREVIOUS CHARACTERPl 


1564 




ORM 


05,2»2048 












PI 


1565 




ANM 


5s3,2047 


0CT3777 










PI 


1566 




CAM 


U,, 












PI 


1567 




ATN 


06,1, 


OUTPUT LAST BYTE 










PI 


1568 




SFR 


06,, 












PI 


1569 




J DC 


OCOsAOBS 












PI 


1570 


AD81 


ATN 


00,, 












PI 


1571 




LFR 


07,, 


GET NAME FROM TABLE 








PI 


1572 


AD819 


CAM 
J DC 


14,, 
00,0,ADB20 


NOT DUMMY 










PI 
PI 


1573 
1574 


ADB21 


CAM 


14,2,1 


DUMMY BIT 










PI 


1575 


ADB20 


CRM 
CAM 


07,3,12 
15,, 












PI 
PI 


1576 
1577 




JNM 


15,0,A0B6 


REF ALREADY SET 










PI 


1578 




ATN 


14,, 












PI 


1579 




ADM 


07,, 












PI 


1580 




ADM 


07,2,2 


NAME BIT SET 










PI 


1581 


AD89 


ORM 


7,2,2048 


OCT4000 REFERENCE SET 






PI 


1582 


A088 


ATN 

CAM 


00,, 
11, J 












PI 
PI 


1583 
1584 




ATN 


06,1, 


OUTPUT NAME/NUMBER 


TO 


IL STREAM 




PI 


1585 




SFR 


06,, 












PI 


1586 




ANM 


5,2,2048 


0CT4000 










PI 


1587 




ADM 


5,2,4096 


OCTIOOOO SET NAME/NUMBER 


WAS 


LAST 


BYPl 


1588 




JLH 


03,, 


EXIT 










PI 


1589 


A086 


JPM 


05,0,AD810 


NOT NAME/NUMBER AS 


PREVIOUS BYTE 




PI 


1590 




JSB 


03,0, ERROR 












PI 


1591 


AOBIO 


ATN 


14,, 












PI 


1592 




ADM 


05,2,2 


NEXT EXT 










PI 


1593 


A0B7 


ANM 


5,3,2047 


OCT 3777 










PI 


1594 




CAM 


11,, 












PI 


1595 




ATN 


06,1, 


OUTPUT PREVIOUS OPERATION TO 


IL STREAM 


PI 


1596 




SFR 


06,, 












PI 


1597 
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J DC 


00,0s A0B8 


ADB2 


CRM 


07f3,l2 




CAH 


15,, 




JPM 


15,A089 




JPM 


05,0,ADB7 




JSB 


03,0, ERROR 


ADB3 


CRM 


07,3,12 




CAM 


15,, 




JNM 


15,0,A0B12 




ORM 


7,2,2048 




ADM 


07,2,12 




JLH 


03,, 


A0B12 


CRH 


05,2,12 




JPH 


05,0,A0B18 




CRM 


05,2,1 




JNM 


05,0,ADB13 




ANM 


5,2,2047 




CAH 


l5,M5-64 




JZH 


15,A0B12A 




CAM 


ll,M5-t-8 




ATN 


6,1, 




SFR 


6 




SFN 


M5 + 12 


ADB12A 


CAH 


11,M5+12 




ATN 


6,1, 




SFR 


6 




JLH 


M3 


ADB13 


ATN 


06,, 




LDM 


11,2,-2 




ADM 


11,2,8 




ATN 


06,, 




SFR 


06,2,-2 




JLH 


03,, 


ADB4 


CRM 


07,3,12 



OUTPUT NUMBER TO IL STREAM 

REF ALREADY SET 

NOT NAME/NUMBER AS LAST BYTE 

OUTPUT LAST BYTE 

REFERENCE ALREADY SET 

OCT4000 IF NOT, SET 
FINAL BYTE CODE 
EXIT 

NO BYTE IN M5 

NAME/NUMBER LAST 
0CT3777 

CLOSED BRACKET 



LAST BYTE BUT ONE 

HAS LAST BIT SET IN CHR EXT 



EXIT 

ADD OPEN BRACKET TO IL 



PI 1598 
PI 1599 
PL 1600 
PI 1601 
PI 1602 
PI 1603 
PI 1604 
PI 1605 
PI 1606 
PI 1607 
PI 1608 
PI 1609 
PI 1610 
PI 1611 
PI 1612 
PI 1613 
PI 1614 
PI 1615 
Pi 1616 
PI 1617 
PI 1618 
PI 1619 
PI 1620 
PI 1621 
PI 1622 
PI 1623 
PI 1624 
PI 1625 
PI 1626 
PI 1627 
PI 1628 
PI 1629 
PI 1630 
PI 1631 
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CAN 


15,, 




JNM 


15*0,ADB16 




ADM 


07,2a 




JDC 


00,0,ADB15 


ADB16 


JN« 


05,0,ADB5 




SBM 


05,2,3 




JDC 


00,0,A0B17 


ADB18 


ADM 


07,2,8 




JLH 


03,, 




FIL 




J DC 


JPH 


01,0, JDCl 




ANM 


01,3,63 




CAH 


03, 2, -COMMA 




JZM 


03sO,JDC3 




JSB 


03,0, ERRl 


JDCl 


CSM 


00,2,7 




JSB 


03,0,READNM 




FIL 






JDC 


00r0,J0C2 




FIL 






JSB 


03,0,ERR3 




FIL 






JDC 


00,a,J0C4 


JDC6 


JSB 


03,0,€RR1 


JDC2 


JSB 
FIL 


03,0,NTLU 




ORM 


7,2,1024 




ATN 


00,, 




CAM 


03,, 




ATN 


06,1, 




SFR 


04,, 


J DCS 


ANM 


01,3,63 




CAM 


03, 2, -COMMA 




JUH 


03,0,JDC6 



SET LAST IN REFERENCE EXTENSION 



NOT COMMA, NO B FIELD ERROR 
READ B FIELD 



NUMERIC B FIELD 
LOOK UP MODIFIER 

0CT2000 SET TAG BIT 

OUTPUT TAG 

ERROR, NO COMMA AFTER B 



PI 1632 
PI 1633 
PI 1634 
PI 1635 
PI 1636 
PI 1637 
PI 1638 
PI 1639 
PI 1640 
PI 1641 
PI 1642 
PI 1643 
PI 1644 
PI 1645 
PI 1646 
PI 1647 
PI 1648 
PI 1649 
PI 1650 
PI 1651 
PI 1652 
PI 1653 
PI 1654 
PI 1655 
PI 1656 
PI 1657 
PI 1658 
PI 1659 
PI 1660 
PI 1661 
PI 1662 
PI 1663 
PI 1664 
PI 1665 
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ON 
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CD 



JDC3 



JDC4 



J0C8 



J DC 7 



JOV 



JOVl 



JS8 
FIL 

J DC 

SIA 

JNM 

SBM 

JPM 

LOM 

CRM 

ADM 

SFR 

JDC 

JSB 

FIL 

JDC 

FIL 

A0« 

JPM 

AHM 

CAM 

JZH 

ADM 

JZH 

ADH 

JZM 

ADM 

JZH 

JSB 

CSM 

JSB 

FIL 

JDC 

FIL 

JSB 



03,0s INPUT 



00fa» 

OOf » 

00, 0» 

00s2p 

00,0, 

15,2, 

00,3, 

15,2 J 

07,2, 

00,0* 

03s0, 



JOV 

JDC7 

16 

JDC 7 

TEMP2 

11 

61 

TEMP2 

JDC5 

ERR4 



NEGATIVE B FIELD 
B GREATER THAN 15 

INSERT B FIELD MOD 16 



00, a, J DC 8 

7,2,128 

0l,0,J0Vi 

01,3,63 

03,2,-COHMA 

03, a, JOVl 

03, 2, COMMA-PLUS 

03,0,NFD2 

03, 2, PLUS-MINUS 

O3,O,HF02 

03,2,MIHUS"OPENBR 

03s0,NFD2 

03s0sERRl 

00,2,7 

03,0,REA0NH 

00,0!,JOV2 

03,0,ERR3 



0CT200 



SET SUB TYPE 2 



ILLEGAL ADDRESS 



READ NAME/NUMBER 



PI 1666 
PI 1667 
PI 1668 
PI 1669 
PI 1670 
PI 1671 
PI 1672 
PI 1673 
PI 1674 
PI 1675 
PI 1676 
PI 1677 
PI 1678 
PI 1679 
PI 1680 
PI 1681 
ALPHA NUMERICPl 1682 
PI 1683 
PI 1684 
PI 1685 
PI 1686 
PI 1687 
PI 1688 
PI 1689 
PI 1690 
PI 1691 
PI 1692 
PI 1693 
PI 1694 
PI 1695 
PI 1696 
PI 1697 
PI 1698 
PI 1699 
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J0V2 



J0V5 



J0V3 



J0V6 



joy4 



FIL 






JDC 


00,0, JO V3 




JSB 


03,0,NTLtl 


NAME LOOK UP 


FIL 






ADM 


06,2,1 




JSB 


03,0,ADBI 


OUTPUT NAME 


FIL 






LDH 


03,2fTEMP2 




ATN 


06,, 




SFR 


04,2,-2 


OUTPUT ORDER 


ANM 


01,3,63 




cm 


03, 2, -BLANK 




JZM 


03,2,NF03 




ADM 


03,2sBLANK-0PEN8R 




JZM 


03,0,NFD2 


END OF ADORES 


ANH 


1,3,6144 


OCT 14000 


CAM 


03,, 




SBM 


3,2,6144 


0CT14000 


JZH 


3,,NFD2A 




JSB 


03,0,ERRl 




ANM 


01,3,63 




CAM 


03, 2, -COMMA 


COMMA NEXT 


JZM 


O3,a,jo\r6 




SIA 


00,, 


N FIELD 


ADM 


06,2,1 




JSB 


03,05A082 


OUTPUT NUMBER 


FIL 






JDC 


00,0, JO V5 




SIA 


00,, 




JNM 


00,0,JOV9 


C TOO SMALL 


SBM 


00,2,4 




JPM 


00,0, JO V9 


C TOO LARGE 


LDM 


15,2,TEMP2 




ATN 


00,, 





PI 1700 
PI 1701 
PI 1702 
PI 1T03 
PI 1704 
PI 1705 
PI 1706 
PI 1707 
PI 1708 
PI 1709 
PI 1710 
PI 1711 
PI 1712 
PI 1113 
PI 1714 
PI 1715 
PI 1716 
PI 1717 
PI 1718 
PI 1719 
PI 1720 
PI 1721 
PI 1722 
PI 1723 
PI 1724 
PI 1725 
PI 1726 
PI 1727 
PI 1728 
PI 1729 
PI 1730 
PI 1731 
PI 1732 
PI 1733 
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00 



JOVll 



joy9 



JOVIO 



SSR 



SSRl 



SSR4 



ADM 


15,2,4 


ATN 


06, Is 


SFR 


OT,, 


JDC 


00,0,HFO 


JS8 


03,0, ERRS 


FIL 




JDC 


00,0,J0\f4 


LDM 


15,2,TE«P2 


JDC 


00,0, JOVll 


FIL 




JPM 


I,, SSRl 


ANM 


01s3,63 


CAH 


03,2,-COMHA 


JZH 


03?0,SSR2 


AD« 


03, 2, COMMA-BLANK 


JZM 


03,Q,SSR3 


JSB 


03,0,ERR1 


CSM 


00»2s7 


JS8 


03s09REA0NM 


FIL 




JDC 


00,0, SSR5 


FIL 




JSB 


03,0,ERR3 


FIL 




ANH 


01,3,63 


CAM 


03s 2, -COMMA 


JZM 


03,0,SSR4 


ADM 


03, 2, COMMA-BLANK 


JZM 


03s0,SSR7 


JSB 


03,0,ERRl 


SIA 


00, s 


JNM 


OObOsSSRS 


SBM 


00,2*16 


JPM 


00,OsSSR8 



ADD TO ORDER MOO 4 
OUTPUT ORDER 



LOAD ORDER TO M15 



SSR TYRE, ALPHA NUMBERIC 



COMMA FOLLOMS NUMBER 

OR BLANK 

NUMBER TO 8 FIELD 



PI 1734 
PI 1735 
PI 1736 
PI IT37 
PI 1738 
PI 1739 
PI 1740 
PI 1741 
PI 1742 
PI 1743 
PI 1744 
PI 1745 
PI 1746 
PI 1747 
PI 1748 
PI 1749 
PI 1750 
PI 1751 
PI 1752 
PI 1753 
PI 1754 
PI 1755 
Pt 1756 
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PI 1758 
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PI 1760 
PI 1761 
PI 1762 
PI 1763 
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PI 1765 
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03,0, ERR! 
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SFR 
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EXIT 
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03,0,ERR4 
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PI 1772 
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PI 1774 
PI 1775 
PI 1776 
PI 1777 
PI 1778 
PI 1779 
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PI 1781 
PI 1782 
PI 1783 
PI 1784 
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PI 1786 
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PI 1789 
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PI 1797 
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PI 1800 
PI 1801 
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06,1, 
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JSB 
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LOOK UP NAME 
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OUTPUT ORDER 



SINGLE NUMBER LARGER THAN 63 



ADO TO ORDER HOD 64 



OUTPUT ORDER 
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PI 1870 
PI 1871 
PI 1872 
PI 1873 
PI 1874 
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PI 1879 
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00,0,CAD7 
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00,0, CAD3 
03s0,NTLU 
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05, 2, COMMA 

05,0rCAD4 

03t2,TEMP2 

06 , 1 , 

04,0, 

05,, 
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07,3,3 

03,, 

03,3,7 

7,2,768 

7,2,8176 

00,2,NFD1 



OCT 17767 



OCT 17767 
READ NAME 



LOOK UP 



COMMA MEANS NAME IS 8 FIELD 



OUTPUT ORDER 



0CTi400 
OCT 17760 



PI 1903 
PI 1904 
PI 1905 
PI 1906 
PI 1907 
PI 1908 
PI 1909 
PI 1910 
PI 1911 
PI 1912 
PI 1913 
PI 1914 
PI 1915 
PI 1916 
PI 1917 
PI 1918 
PI 1919 
PI 1920 
PI 1921 
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CAD4 ORM 
ATN 
CAM 
ATN 
SFR 
JDC 

CA03 ANN 
CAM 
JZM 
LDM 
ATN 
SFR 
CAM 
CAM 
ANH 
CAM 
CRM 
ADM 
ANM 
JDC 

CA05 SIA 
JNM 
SBM 
JPH 

CAD9 LDM 
CRM 
ADM 
SFR 
JDC 

CAD6 LOM 
CRN 
CAM 
JNM 

CAD61 ATN 



7,2,1024 

00,, 

03,, 

06,1, 

04,0, 

O0,0,CFD 

01,3,63 

03, 2, -COMMA 

03,0, CADS 

03,2,TEMP2 

06,1, 

04,, 

09,, 

05,, 

07,3,3 

03,, 

03,3,7 

7,2,768 

7,2,8176 

00,0,NF018 

00,, 

00,0, CADS 

00,2,16 

00,0, CADS 

15,2,TEMP2 

00,3,11 

15,2,61 

07,2,TEMP2 

00,0,CFD 

15,2,TEMP2 

7,4 

3 

3,BLSl 

6,1, 



OCT2000 SET TAG BIT 

OUTPUT TA6 

NOW LOOK FOR C FIELD 

TEST FOR COMMA, MEANS 8 FIELD 

OUTPUT ORDER 



0CT1400 
GO TO N FIELD 

TEST B FIELD IN RANGE 

ADO TO ORDER 

AND LOOK FOR C FIELD 



Pi 1937 
PI 1938 
PI 1939 
PI 1940 
PI 1941 
PI 1942 
PI 1943 
PI 1944 
PI 1945 
PI 1946 
PI 1947 
PI 1948 
PI 1949 
PI 1950 
PI 1951 
PI 1952 
PI 1953 
PI 1954 
PI 1955 
PI 1956 
PI 1957 
PI 1958 
PI 1959 
PI I960 
PI 1961 
PI 1962 
Pi 1963 
PI 1964 
PI 1965 
PI 1966 
PI 1967 
PI 1968 
PI 1969 
PI 1970 
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CAM 
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03,3,7 
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7,2,768 
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7,2,8176 
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J DC 
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AND GO TO H FIELD 
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FIL 
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03,0,CF015 
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CJZ 


03,0,CFD10 


CJZ 


03,0,CFDII 
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Fit 
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CFD28 JS8 


03,0, INPUT 



OUTPUT ORDER 

TEST FOR CAN,LDM AND CJF TYPES 
TEST FOR LFR TYPE 



PI 2039 
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ANN 
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7,2,192 
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JSB 
FIL 


03, 0» INPUT 
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PI 2086 
PI 2087 
PI 2088 
PI 2089 
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PI 2091 
PI 2092 
PI 2093 
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PI 2097 
PI 2098 
PI 2099 
PI 2100 
PI 2101 
Pi 2102 
PI 2103 
PI 2104 
PI 2105 
PI 2106 
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CJZ 
JS8 

CFD20 ANH 
CAM 
J2M 
JDC 

CFD5 JS8 
FIL 
JDC 

CFD6 LDM 
ATN 
SFR 
ANN 
CAH 
JU« 
CAO 
TRA 

CF07 LDM 
ATM 
SFR 
AN« 
CAM 
JUM 
ANH 
ADM 
JDC 

CFD31 CR« 
CAM 
JPM 
ANN 
ADM 
JOC 
CFD30 ANM 
ADM 



03,0»CF027 

03,0, ERROR 

15,3,3 

03,2,-3 

03,0,CFD19 

00,0^CF014 

03,0fERR5 

0,0,CFD17*1 

15,29TEMP2 
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07,3,7 
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CAH 
JNM 
S8M 
JPM 
LDM 
CRH 
AOM 
SFR 
J DC 
JSB 
FIL 
JDC 
CAM 
JPM 
JPM 
ATN 
LDM 
SBM 
JZM 
JSB 
FIL 
JDC 
SBM 
JPM 
SBM 



01,3,63 

03, 2, -BLANK 

03,0,CAM9 

3, 2, BLANK-COMMA 

03fO,CFD 

03tO,ERRl 

00*, 

00s0tCAM5 

07t3,4 

03,, 

3,CAM6 

00,2,16 

0OtO,CAM5 

15,2,TEMP2 

00,3,11 

15,2,61 
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CAM 
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JIM 
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NOT LFR TYPE 


LOM 
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JSB 
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FIL 
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PI 2284 
PI 2285 
PI 2286 
PI 2287 
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PI 2289 
PI 2290 
PI 2291 
PI 2292 
PI 2293 
PI 2294 
PI 2295 
PI 2296 
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PI 2299 
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PI 2301 
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PI 2303 
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PI 2306 
PI 2307 
PI 2308 
PI 2309 
PI 2310 



5? 

tD 


hd CO t) 
p3 fD S» 


<! 


OtJ O c+ 


H- 


(D ct- CD 


CQ 


.. H- •• 


H- 


O 


O 


P 


P 




** 






ONUJ —5 




oo . ---^ 




M m 




O • -<1 




Hj Ch~-\ 




cr\ 




oo Jp- 




00 



JDC 


00,0, CALl 


Fit 




JSB 


03,0, ERRl 


FIL 




JSB 


03,0, ERRl 


CALl JSB 


03,0,NTLU 


FIL 




JNM 


15»0,CAL2 


ORM 


15,768 


ATN 


00,, 


SFR 


07,, 


CAL2 CAM 


3,2,2304 


ATN 


06,1, 


SFR 


04,, 


JSB 


03,0,ADB1 


ANH 


01,3,63 


CAM 
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CAM 
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ONLY NAME LEGAL 

SET CALLED AND USED 8ITSS 

PUT BACK IN TABLE 

CT4400 -CALL ORDER BITS 

OUTPUT 

OUTPUT NAME 

BLANK MUST FOLLOW 

ERRl PROGRAM 
ASSEMBLES 17700 ORDER 
OCT 10000 



ILLEGAL ORDER 



PI 2311 
PI 2312 
PI 2313 
PI 2314 
PI 2315 
PI 2316 
PI 2317 
PI 2318 
PI 2319 
PI 2320 
PI 2321 
PI 2322 
PI 2323 
PI 2324 
PI ^325 
PI 2326 
PI 2327 
PI 2328 
PI 2329 
PI 2330 
PI 2331 
PI 2332 
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CAM ls-10 

RDC4A JNH 1»RDC14 

S8M un 

Jin 0l,0»RDC18 

SBM 01*2,5 

Jin 01,0,RDC6 

SBM 01,2,16 
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SBM 01,2,5 

JZM 01,0,RDC12 

SBH 01,2,6 

Jin 01,0»RDC13 

JDC 00,0,RDC30 

RDC5 JUM 12,0,ROC9 

JUM 09,0,RDC9 

CAM 11,2,1 

JDC 00,0,RDC7 
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CSM 11,2,1 
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2,1 

15,M14-ILBUF-513 

15,CT85 

4, CALLS 

SERR3 

15 t 4096 

14,4332 

4, INPUT 

7, INPUT 

3s 1 

3,CTB10 

15,8190 

7, INPUT 
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MTBL+14,0,0,MAi4 

MT8L+l5,Q,0rMAi5 

3 

9 

8 

4 

7 

3 

7 

12 

11 

15 

16 

5 

7 

10 

14 



PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 



2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 



w 


(B (D S^ 


CD 


<! 


OQ n c+ 


H- 


CD d- fP 


(n 


., H- •• 


H- 


O 


o 


P 


t3 






03(-o — q 




(jO . ^--. 




M ro 




o • --J 




H) ON^^ 




ON 




OD -P- 




00 



MA15 BSS 
BSS 

MENTRY OCTQL 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 
OCTQ 



4 
18 

0,10000j,0,0 
0, 04001, OsO 
0,04002*0*0 
0» 04003,0^0 
0,04004,0,0 
0s0400590s0 
Os 04006 tOjO 
Os.04007,0,0 
0,04010,0,0 
0i,0401lf0s0 
Os= 04012, OsO 

OsiooiasOvO 

Ojl00l4j0r0 

0»15j,0,0 

09l6s0,0 

0ri7s0,0 

0f.20s050 

0, 14321^0, 

0,22s0j0 

0$23,0»0 

0924tD,0 

0»25s0,0 

0s26j0,0 

0»27v0s0 

Of 30p0ir0 

OtSlpOjO 
0*32,0,0 

0,10033*0,0 
0» 10534,0*0 

0935,0*0 
0,36,0,0 
0s37,0,0 



BLANK 

1 

2 

3 

4 

5 

6 

7 

8 

9 





/ 

s 

T 

U 
V 

u 

X 
Y 
2 





PI 


2821 




Pi 


2822 


CHARACTER TABL8E 


PI 


2823 




PI 


2824 




PI 


2825 




PI 


2826 




PI 


282? 




PI 


2828 




PI 


2829 




PI 


2830 




PI 


2831 




PI 


2832 




PI 


2833 




PI 


2834 




PI 


2835 




PI 


2836 




PI 


2837 




PI 


2838 




PI 


2839 




PI 


2840 




PI 


2841 




PI 


2842 




PI 


2843 




PI 


2844 




PI 


2845 




PI 


2846 




PI 


2847 




PI 


2848 




PI 


2849 




PI 


2850 




PI 


2851 




PI 


2852 




PI 


2853 




PI 


2854 





h:j CQ O 
SB (D fB 


<1 


OQ O c+ 


H- 


(T> C+- 0) 


Kl 


.. H- •• 


H- 


O 


O 


P 


P 




" 






ODU) -J 




■(^ ' ^^ 




H ro 




o ■ -o 




i-b 0\~-\ 




0\ 




CD .f=- 




00 



NTBL 



OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

ORG 

DECQL 



0,14140,0,0 

0,41,0,0 

0,42,0,0 

0,43,0,0 

0,44,0,0 

0,45,0,0 

0,46,0,0 

0,47,0,0 

0,50,0,0 

0,51,0,0 

0,52,0,0 

0,14053,0,0 

0,14254,0,0 

0,55,0,0 

0,56,0,0 

0,57,0,0 

0, 14060, OsO 

0,61,0,0 

0,62,0,0 

0,63,0,0 

0,64,0,0 

0,65,0,0 

0,66,0,0 

0,67,0,0 

0,70,0,0 

0,71,0,0 

0,72,0,0 

0,10073,0,0 

0,10474,0,0 

0,75,0,0 

0,76,0,0 

0,77,0,0 

2496 

NT8L,0,0,NA 



J 
K 

L 
M 
N 

P 
Q 
R 

$ 



+ 
A 
B 
C 
D 
E 
F 
G 
H 
I 



PI 2855 
PI 2856 
PI 2857 
PI 2858 
PI 2859 
PI 2860 
PI 2861 
PI 2862 
PI 2863 
PI 2864 
PI 2865 
PI 2866 
PI 2867 
PI 2868 
PI 2869 
PI 2870 
PI 2871 
PI 2872 
PI 2873 
PI 2874 
PI 2875 
PI 2876 
PI 2877 
PI 2878 
PI 2879 
PI 2880 
PI 2881 
PI 2882 
PI 2883 
PI 28S4 
PI 2885 
PI 2886 
PI 2887 
PI 2888 



0) 




CO 


^ 


< 


OQ 


o 


ci- 


H- 


CD 


d- 


ft) 


CO 


ae 


H- 


so 


H- 




G 




O 




D 




ts 








o* 










OOU)-<l 




vn 


o 


^•^^ 






H 


ro 




O 


o 


^ 




i-ti 


CTs 


CT\ 




oo 




-p- 




00 







DECQ NTBL + l,0v0|.NA+16»l 

DECQ NTBL*2jO,05,NA-5'i6*2 

DECQ NTBL*3,0,0,NA-i-i6»3 

DECQ NTBL+4,0f0,MA+i6»4 

DECQ NT8L*5,0,0,NA-»-16«5 

DECQ NTBL+6s0t0,NA+i6»6 

DECQ NTBL+7,0,0tHA+16*7 

DECQ NTBL+8s0f0»NA+i6*8 

DECQ NTBL*9,0s0,NA-i-l6»9 

DECQ NTBL+i0,0s0,NA-i-16*10 

DECQ NT8L*lis0sO5NA+16«il 

DECQ NT8L-5-12?0s09NA+16»l2 

DECQ NTBL^13sO*Os,NA+16»13 

DECQ NT8L-fl4,0s0?NA + 16*14 

DECQ NT8L+15jO»05NA+16*l5 

DECQ NTBL+16jOtO*NA-s-16*16 

DECQ NT8L+l7sO,0,NA+16»i7 

DECQ NT8L + 18,0fOsNA-8-16*18 

DECQ NTBL+19,0j0i,NA+16»19 

DECQ NT8L+20,050jNA*l6*20 

DECQ NTBL+21s0s0,NA+16*2l 

DECQ NTBL+22,0t.0,NA+16*22 

DECQ NTBL-f-23tG,0,NA+16*23 

DECQ NT8L + 24,0»0*ISiA+16»24 

DECQ NT8L*25vG,0,NA+16»25 

DECQ NTBL-!-26,0»0,NA + 16*26 

DECQ NT6L*27,0,C5NA+16«27 

DECQ NTBL-}-28j0j0pNA+16*28 

DECQ NTBL+29yO,0,NA+16*29 

DECQ NTBL*30,0»0,HA+16*30 

DECQ NTBL+3U0j0,NA + 16*31 

DECQ NTBL+32fO,0?NA+l6«32 

DECQ NT8L+33«0^0,NA+I6»33 

DECQ NT8L+34,0,0,NA+16»34 



PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

PI 

Pi 



2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 



w 


hd 


m 


t) 


tp 


P 


(D 


P 


< Cfi 


o 


c+ 


H- 


CD 


c+ 


fD 


CO 


• • 


H- 




H- 




o 




O 




P 















COLO 


~J 




o\ 


• 








M 


!\} 




o 


• 


-<i 




H-j 


OA 


o\ 




CO 




■P- 




CO 







DECQ 


NTBL+35, 


DECQ 


NTBL+36, 


DECQ 


NT8L+37, 


DECQ 


NTBL+38, 


DECQ 


HTBL*3gt 


DECQ 


NTBL+40, 


DECQ 


NTBL+41, 


DECQ 


NTBL*42, 


DECQ 


NTBL+43, 


DECQ 


NT8L*44» 


DECQ 


NTBL*45s 


DECQ 


NTBL-l-46t 


DECQ 


NT8L+47, 


DECQ 


NT8L*48, 


DECQ 


NT8L+49, 


DECQ 


NT8L+50, 


DECQ 


NTBL+51, 


DECQ 


NT8L+52, 


DECQ 


NT8L*53, 


DECQ 


NTBL+54, 


DECQ 


NT8L+55, 


DECQ 


NTBL+56, 


DECQ 


NT8L+57, 


DECQ 


NTBL+58, 


DECQ 


NT8L+59, 


DECQ 


NTBL+60 9 


DECQ 


NTBL+61, 


DECQ 


NT8L*62» 


DECQ 


NTBL+63s 


NA BSS 


I 


TOP EQUS 


4096 


LLPB EQUS 


3615 


PLUS EQUS 


48 


HINUS EQUS 


32 



0,0,NA+16*35 
0,0,NA+16»36 
0t0?NA+l6»37 
0s0»NA*l6*38 
0ff0»NA+l6»39 
0r0rNA+16*40 
0»0,NA+16»41 
0,0,NA+16»42 
0»0,NA+16*43 
OsO,NA+l6«44 
0,0,NA+16»45 
0s0,NA+16»46 
0s0tNA+16*47 
09a,NA*16»48 
0,0rNA+l6»49 
0,0sNA*l6»50 
090irNA+l6»5l 
0,0,NA+16*52 
0f0»NA+l6»53 
0,0,NA+16»54 
0,0fNA+16»55 
0,0,NA+16»56 
OsO,NA+16»57 
0,0,NA+16»58 
0s0i;.NA+16*59 
0r0sNA+16»60 
0,0sNA4- 16*61 
0,0,NA*16»62 
0r0»NA+16»63 



PI 


2923 


PI 


2924 


PI 


2925 


PI 


2926 


PI 


2927 


PI 


2928 


PI 


2929 


PI 


2930 


PI 


2931 


PI 


2932 


PI 


2933 


PI 


2934 


PI 


2935 


PI 


2936 


PI 


2937 


PI 


2938 


PI 


2939 


PI 


2940 


PI 


2941 


PI 


2942 


PI 


2943 


PI 


2944 


PI 


2945 


PI 


2946 


PI 


2947 


PI 


2948 


PI 


2949 


PI 


2950 


PI 


2951 


PI 


2952 


PI 


2953 


PI 


2954 


PI 


2955 


PI 


2956 



w 


^Td cn t) 


CD 


SB CD SD 


<l 


m o ci- 


H- 


(D C+- CD 


CO 


.„ p. o. 


H- 


O 


O 


V 


D 






Oouo -J 




-J • ■""~~- 




H ro 




o • -g 




H. a\"--- 




ON 




00 -t=- 




00 



ILBUF 


EQUS 


512 


R08UF 


EQUS 


1024 


HAKEWD 


EQUS 


511 


READNO 


EQUS 


3 


BLANK 


EQUS 





PERIOD 


EQUS 


59 


OPENBR 


EQUS 


28 


CL0S8R 


EQUS 


60 


COMHA 


EQUS 


11 


ERR8UF 


EQUS 





TABFUL 


EQUS 


I 


EQU 


EQUS 


2 


ERR 


EQUS 


3 


CALLS 


EQUS 


4 


SYS 10 


EQUS 


7939 


MAKEUP 


EQUS 


256 


READ 


EQUS 





WRITE 


EQUS 


1-^511 


WAIT 


EQUS 


256 


SYSERR 


EQUS 


7937 


SYSTEM 


EQUS 


7936 


SYSAUX 


EQUS 


7938 


TRACE 


EQUS 


4161 




GO 


10 



PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
Pi 
Pi 
PI 
Pi 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 



2957 

2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 





hj 02 O 
fO fC p 


< 


OQ O d- 


H- 


(D ct (D 


CQ 


.. H- •• 


H- 


O 


O 


P 


P 


• • 




OOU) -J 




00- -^ 




M ro 




o • -^ 




Hj 0\~^ 




0\ 




CD ^ 




oo 



Programmed by: 



F. Schaffer 
J. Nievergelt 
C. W. Gear 



Description Toy: 



T. Slivinski 
F. Schaffer 
C. W. Gear 



Date: 


7/27/64 


Section: 


3.2 


Page: 


1 of 1 


Revision: 





3.2 MCAP Pass II 

Pass II is primarily concerned with solving the name tahle and 
calculating the length of the program when assembled; to do this, the subroutine 
SBSOLV (also called FRANK) is used. This program repeatedly scans the EQU list 
until no more EOU's can be evaluated. It then exits, to the address in M3 if 
all EOU's have now been evaluated, otherwise to the address in M2, SBSOLV is 
used before and after Pass II proper. If any EQU remains unsolved after Pass II, 
an exit is made to SYSERR. 

Exits can also be made to SYSERR if the EQU list, the name table or 
the error list becomes full. Otherwise a final exit to SYSTEM is made, by 
which time all names in the table will have been defined. Pass II scans the 
intermediate language, deciding where each order would go in memory if it were 
to be assembled. In this way it can assign to each name that appears in the 
location field of a card a memory address. 

The input to Pass II is as described in "Output from Pass I." Pass II 
is copied if memory in those areas occupied by the Pass I program, and therefore 
does not overwrite the name table or the error and EQU lists. 
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3.2,1 Output from Pass II 

Pass II exits via SYSERR with Ml containing: 

257 if the name table is filled, 

258 if the EQU list if filled, 

259 if the error list is filled, 

260 if the EQU list cannot be solved, and 

261 if there is a machine malfunction; 

otherwise an exit is made to SYSTEM, The only change in the storage areas is 
that core location 512 is no longer significant, the name table now has every 
name as defined as it ever will be and F7 contains in MI5 the number of 
erasable locations used, in Ulk the top address used by the program and in MI3 
the length of the common area. 
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3.2=2 The Location Counter 

Any time that an ORG, FLD, BES or BSS is encoujitered for which the 
address field cannot be calculated because not all of the names appearing in 
it are known absolutely, the location counter is made relative to a new name 
which is defined as a symbol with value equal to the first control group which 
will follow the pseudo instruction. This value is defined by forming an EQUS 
statement in the EQU list. 

To do this, the following words are used: 
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2^ g 31 33 ^ 38 



CDCN 



CH 
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51 



WL 



Name Table Entry in Pass II 

CDCN is the card number on which this name is defined, WL is the word value 
of the name if it is a symbol or label, and is four times the numerical value 
if it is a modifier or a fast register. TK is a type code which indicates the 
type of name : 
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000 
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SN is the state of construction code: 

00 Unknown 

*01 Known relatively 

10 Defined in an EQU statement generated by Pass II 

11 Known absolutely 



In the relative case the chain address CHN points to the next 
member of the chain. The last member of the chain has the code 
01 in SN, the first member of the chain is an EQU statement. 
Thus an EQU statement may be chained to a series of names. When 
the EQU statement is evaluated between Pass II and Pass III, 
its value is added to the WN groups of each name in the chain. 



REL: two bits for relocation 

00 No relocation 

01 Program 

10 Common 

11 Erasable 

As EQU statements are generated during Pass II, separate bytes are 
stored in locations OUTLST-1, OUTLST, .,,, etc., in the first quarter-word 
positions. When another card that changes the relativiser of the location 
counter is read, the final chain address from the location counter, CH, is 
stored in the first quarter word of OUTLST + 1, The second quarter of this 
location contains a 13-bit new name that can be used as the next relativiser. 
Use of the EQUTT subroutine stores the EQU statement in the EQU list, enters 
the name in the table and decreases the new name address by 1, EQUTT makes 
use of the control word MAKEUP. 



WMFREE 
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MAKEUP 
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WEQU and k + QEQU are the -word and quarter-word locations of the next EQU 
statement in the EQU list. NMFREE is the address of the next free location 
for a new name , 

The FLD pseudo operation will also cause a new relativiser to be 
generated if the location counter was previously relative. This will be one of 
the two EQU statements with type codes h or 12^ the former indicating round even 
values up, and the latter meaning round add values up. 

The pseudo operation GO which signals the end of Pass II also enters 
the EQUTT subroutine if the location counter is relative. It then stores a 
final reference byte of all zero which indicates the end of the EQU list. 

The location counter and the statement counter (used for numbering 
errors) are held in the word LOCAT. 



SC CH LQ LW 



'-Word location 

' — Quarter-word location 

- = Absolute 

/ = Relative to the name which appears 
at the end of the chain through 
the name table started from CH 



Statement Counter 
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3o2o3 Program Sections and Subroutines 

The general flow is indicated in sections 3,2.1 and 3 •2. 2. The boxes 
in double lines are given in more detail in subsequent diagrams. During the 
address computation of an order with a complex address structure, the routine 
ADCOMP is used. This is a routine essentially similar to the ADCOMP routine in 
Pass III which constructs the final orders in binary. In Pass II this routine 
needs only to decide how many quarter words are required to generate the 
address at execution time in order that it may keep track of the location 
counter. For a general description of ADCOMP, the reader is referred to the 
Pass III description. 

SBCOMP is a subroutine version of ADCOMP that is used by the pseudo 
orders which need addresses calculated. It therefore makes a subroutine exit 
if the reference in M5 indicates that it is a pseudo order. Also pseudo orders 
cause it to make a different exit if a name is not yet defined absolutely when 
it is used. This exit is via the address "UKOWN." 

If a modifier is encountered In SBCOMP, it is treated as illegal, 
and an address of zero is used instead. 



The Use of Modifiers and Temporary Storage in Pass II 

(For the use of modifiers and registers during SBCOMP and ADCOMP see 
the Pass III description. ) 

Subroutine entry is always made via M3. 

Input always reads into MJ+. 

A name from a location field is put into M6, 

Generally, a name table entry is read into FU. 

"LOCAT" is read into F7 generally. It stays there during the 
execution of most pseudo orders. 

M5 always holds the reference byte, except that the character 
extension bits contain the extension bits last read. For the format of the 
reference, see the description of the intermediate language. 
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The order currently being processed is stored in COMMON + 2 during 
ADCOMP. This is in the first quarter, the third quarter contains the order type 
code in the first four bit positions. 

During ADCOMP, the top level of the operation push down is held in F?. 
The address of the second level plus one is held in M8. Mil is used as a push 
down pointer for the M list and MIO is used as a counter for the number of 
modifiers in the top level of the M list. 

M6 contains a count of the number of open brackets minus the number 
of close brackets that have been read. 

As in Pass III, the flow chart for ADCOMP uses the notation: 

TO Top operation in push down (in Ml4) 

TLV Value of top operand in push down 

TL Top operand type in push down (in M12 .. Number ., 

Tag ..... 1 
ACQ -4096) 

TLV Top level value (in Ml 3, top bit is sign for tags and ACC) 

SO Second level operation in push down 

SL Second level operand type 

SLV Second level operand value 
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3.2,^4- Subroutines 

The subroutines INPUT and LOOKM are identical to those of the same 
name in Pass III and are described there. The purposes of the various sub- 
routines are: 



EQUTT Packs the output EQU statement from locations OUTLST, OUTLST + 1, 
etc., into the EQU list 

FILL Increases the location counter to the next word boundary 

SBSOLV Attempts to substitute in table for all names defined in the EQU list 

INPUT Reads the next byte of intermediate language into MU 

LOOKM Examines the top level of the M list for a modifier used positively. 
If none exists it exits to M3 + 1; otherwise it puts the first such 
in M2 and removes it from the list. 

LSTORE Increases the location counter by two quarter words if the 

accumulator is already in use in the address calculation object 
program. (M7 contains a count of the number of times it appears in 
the push down. ) 

MOUT Increases the location counter by a number of quarter words equal 
to the number of modifiers in the top level of the M list 

NAMEL Enters the name held in M6 into the name table with value equal to 
the current location counter 

OUTl Increases the location counter by a quarter word 

OUTS Increases the location counter by two quarter words 

PSTl This is used whenever the level of the incoming operation is less 
than the current top level operation. 

PTTl This is used whenever a closing bracket is read and the top level M 
list is nonempty. 

SBCOMP Calculates the numerical value of an address of a pseudo order 

SBERR Lists an error for future printing 
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3,2.5 Errors of Pass II 



Error No. 


Description 






Used in 
SBSOLV? 


Fatal? 





Symbols for Tiabel 








No 


1 


Label for Symbol 






No 


No 


2 


FO illegal 






No 


No 


3 


Fl illegal 






No 


No 


k 


All F illegal 








No 


5 


All M illegal 










6 


Label or Symbol as tag 










7 


Modifier in pseudo op 






No 




8 


Undefined name 






No 




9 


Doubly-defined name 










10 


First byte of L address nonname 




No 


11 


F for M 










12 


M for F 










13 


> 1 address byte in modifier 
Fast Register 


or 






Ik 


Too large integer address 


for 


M or F 






16 


Illegal relocation 








No 
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3.2.7 Characteristics of "SBSOLV" 

1. Closed subroutine with link in M3. 

2 . Exits : 

JLH M3 if all EQU statements are evaluated 

JLH M2 if it is not possible to evaluate all EQU statements. 

3. Subroutines used: 

SBERR 
INPUT 
SBCOMP 



k. Assumes; 



(a) location "PARAM" which must be defined contains the following 
information: 



EQLIST 



■k 



-256 



-1 



where "EQtIST" is the first word in the list of EQU statements, 

(b) There are three consecutive temporary storage locations 
beginning with the address "TEMP" which must be defined, 

(c) The first quarter word after the end of the last EQU 
statement is zero. 

(d) In the "operation byte" of an EQU statement: 



"V — 

OP 



N 



the five bits defined by K give the number of bytes in the 
address of the EQU statement. 
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Results: (a) If it is possible to evaluate the address of an EQU statement, 
that statement is deleted by setting the sign hit of its 
reference byte to 0. 

(b) The card number of the EQU statement being processed is loaded 
into the first quarter word of the location "LOCAT" which must 
be defined. 

(c) When a name table entry is defined by an EQU statement, the 
"state of construction" bits are set to 11 and the address is 
added into the last quarter word. 



Treatment of address constructions, errors: 

(a) EQUS 

(1) a 13-bit address is computed 

(2) an address with L represents a possible (nonfatal) 
error: the c field of L is ignored. 

(3) an address with M or F is considered a fatal error; 
the tag Is replaced by zero. 

(b) EQUL C, ... 

(1) a 15-bit address is computed 

(2) if the first W-field byte is L, then the c field of L 
is added to C mod h and the overflow is added to the 
N address. In all other cases, the N field defines 

a 13-bit address. 

(3) if the first N-field byte is not a name (integer, 
bracket, +, , . . ) there is a possible error 
(considered nonfatal) 

[k) N field begins with S, possible (nonfatal) error 

N field begins with M or F, fatal error and the tag 
is replaced by zero. 

(c) EQUM 

(1) If the address contains more than one byte, it is 
considered a fatal error and all except the first 
byte are Ignored. 



Treatment of First Byte 

(2) If the first byte is not a name or integer, 
error, set address = 0. 

(3) F: fatal error, but F is used as M. 



fatal 
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(,U) S or L: jfatal error, set address = 

(5) integer: fatal error if > l6, address is set = 

(d) EQUT; 

(1) same as EQUM 

(2) same as EQUM 

(3) M: fatal error but mask out left-most "b" "bit and 
use as F 

(k) same as EQUM 

(5) integer: fatal error if > 8, set address = 

If an EQU statement defines a name which is already known absolutely, 
the previous value stands and an error is indicated (doubly defined, fatal). 
For each EQU (except chaining EQU's) the EQU card number is inserted into the 
name table entry which it defines. 
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REGMOD 



GET ADDRESS 
BYTE 



SKIP 



NO 



KNOWN 
YES 



NAME 
CORRECT 




YES. 




NO 



YES 




SET INTEGER 
= 



YES 



REG. FOR 
MODIF. 



SET ERROR 

CODE 

S OR L AS TAG 



SET ERROR 
CODE 



JSB- SBERR 



SUBST 1 



SUB5T Z 



PUT ADDRESS 

BYTE IN MIS 

LEFT SHIFTED 

TWO PLACES 



ZL 



MODIF. 
FOR REG. 



SET ERROR 
CODE 




SET ERROR 
CODE AND 
JSB -SBERR 



SET "SUBST 2" 
ENTRY 
PARAMETER 
M4=-l 



sbsolv 



Date: 


il^i/eh 


Section: 


3.2.7 


Page: 


7 of 7 


Revision: 






SUBST 



SET Mi5:= M13 




SET M4:=0 




SETX:=1 



DELETE EQU 
BY SETTING SIGN 

BIT OF REF. 
BYTE TO ZERO 



TABLE LOOK UP 

TO FIND 
DEFINED NAME 



SET ERROR 
CODE FOR 
DOUBLY 
DEFINED 




JSB- S8ERR 



Mlo: = ADDRES5 



YES 




S" 



YES 




NO 



ROUND ODD 

TO EVEN 



COMPUTE 
C FIELD, ADD 
OVERFLOW TO 
N ADDRESS 



COMPUTE N 
ADDRESS. fCALC. 
ADDRESS + 
LAST V4 0F 
TABLE ENTRY) 



YES 




SET RELOCATABLE 
BIT. SET BITS 

FOR KNOWN 
ABSOLUTELY 

AND RESTORE 




ROUND EVEN 
TO ODD 



T 



SKIP 1 



49012C « GEAR 




NICAP 


PASS 2 JAN 


1,1965 


ORG 


1024 




ORUttHO EOUS 


7946 




TilTRAN EQUS 


7947 




SYSTAP EQUS 


7680 




CHKFl: EQUS 


1096 




BCKSPR EQUS 


1064 




SVSAUX EQUS 


7938 




SYSERR EQUS 


7937 




REAQ EQUS 







WAIT EQUS 


256 




WRITE EQUS 


512 




LOAD EQUS 


7945 




SrmiQ EQUS 


7939 




WTM EQUS 


1104 




REWIND EQUS 


1056 




SYSTEH EQUS 


7936 




HPROaR LFR 


7tINST0R*l 




tOM 


15,512 




AOM 


15,2 




SFR 


7,mST0R*l 




tFR 


6,512 




CS« 


11,(I9 




CAN 


10 




CAM 


9 




SFR 


6,L0eAT 




LFR 


6,STG1 




CAM 


11,1115-2 




SFR 


6,STG1 




ADtt 


9,256 




AQM 


11,1 




SFR 


6,St61«2 




CALL 


SYSAUX 





TAS 



P2 


2 


P2 


3 


P2 


4 


P2 


5 


P2 


6 


P2 


7 


P2 


8 


P2 


9 


P2 


10 


P2 


11 


P2 


12 


P2 


13 


P2 


14 


P2 


15 


P2 


16 


P2 


17 


P2 


18 


P2 


19 


P2 


20 


P2 


21 


P2 


22 


P2 


23 


P2 


24 


P2 


25 


P2 


26 


n 


27 


P2 


28 


P2 


29 


P2 


30 


P2 


3l 


P2 


32 


P2 


33 









^ 


<! 


m 


n 


c+ 


H- 


fD 


d- 


CD 


CO 


■■ 


H- 


• ■ 


H- 




O 




O 




ts 




O 










H U) ^ 




O 


ro 


ro 




Hj 


CX) 


;;^ 




-f^ 




c^ 




vo 




-p- 



STGl OeCQ REA0HL80F1,0,0 

CALL SYSAUX 

BSS 1 

TRA STPSS2 

EQUENT CAM I»258 

TRA ERROR 

ERRFUL CAM 1,259 

TRA ERROR 

EQUMRG CAM 1,260 

TRA ERROR 

«RONG CAM 1»257 

ERROR LFR T.LOCAT 

CAM 2,M12 

CALL SYSERR 

SBSOLV SFR 04, 2, TEMP 

CAM 02, 2, SKIP 

SOLVL LFR 0T,2,PARAM 

SFR 07,2,INSTOR 

CAM II,, 

S0LV2 LFR 6?,2,INSTQR 

SFR 0?*2,TEMP+1 

JSB 03,0, INPUT 

FIL 

JUM 0*,0,SOLy3 

LFR 7,INSTQR*l 

SFR 7,INSTQR 

LFR 4, TEMP 

JPM ll,,S0LV4 

CRM 11,2,12 

JMM 11,, SBSOLV 

CAM 3,M2 

S0LV4 JLH M3 

S0LV3 JNM 04,0,S0LV5 

JOC 00,0,SKIP1 



FINISHED 

EQU SOLVED ON LAST SCAN 
NOT SOLVED EXIT ADDRESS 
EXIT FROM EQU SOLUTIONS 



P2 


34 


P2 


35 


P2 


36 


P2 


37 


P2 


38 


P2 


39 


P2 


40 


P2 


41 


P2 


42 


P2 


43 


P2 


44 


P2 


45 


P2 


46 


P2 


47 


P2 


48 


P2 


49 


P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 


57 


P2 


58 


P2 


59 


P2 


60 


P2 


61 


P2 


62 


P2 


63 


P2 


64 


P2 


65 


P2 


66 


P2 


67 



td 


•t) 


CQ 


tj 


(D 


SB 


CD 


SB 


<! 


m 


O 


c+ 


H- 


(D 


c+ 


fB 


OT 


• • 


H- 


• ■ 


H- 




O 




O 




P 




P 








•" 










ro uo :;-j 




o 


ro 


ru 




<-b 


00 


-<i 




4=- 




c^ 




VO 




-1=- 



FIL 
SKIP 0R« 
SKIPl LFR 
ADM 
ANN 
CAM 
JZM 
CRN 
ATM 
AOM 
ATM 
AOM 
ANM 
S0LV22 SFR 
ATM 
LFR 
ORB 
ATN 
CAM 
ANM 
CRM 
AOM 
ANM 
CAM 
JZM 
CRM 
ATM 
ADM 
ATM 
ADM 
ANM 
S0LV21 SBM 
SFR 
LFR 



11»2,4096 

07,2,TEMP*l 

13,2,7 

13,3.4 

08,, 

08,0, SOL V22 

08^2,2 

08,, 

12,, 

08,, 

14,, 

13,2,3 

06,2,TEMP*2 

12,, 

06,, 

13,, 

08,, 

08,, 

8i2,248 

08,3,3 

13,2,1 

13|3,-4 

08,, 

08,0, SOL V21 

08,2,2 

oa#, 

12,, 

08,, 

14,, 

13,2,3 

13,2,4 

07,2,INST0R 

06,2,TEMP*2 



OCT 10000 



0CT370 



P2 


68 


P2 


69 


P2 


70 


P2 


71 


P2 


72 


P2 


73 


P2 


74 


P2 
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P2 
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P2 
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P2 
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95 


P2 


96 


P2 


97 


P2 


98 


P2 


99 


P2 


100 


P2 


101 



w 


>D 


CQ 


y 


(B 


P3 


fD 
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O 


c+ 
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(C 


c+ 


CD 


m 


• a 


H- 


a* 


H- 




O 




o 




















OJ 00;<1 




O 


ro 


ro 




H) 


00 


q] 




-1=- 




ON 




V£) 




-p- 



J DC 


00,0, SOL V2 




S0LV5 ATM 


04,, 




CAM 


05,. 




J SB 


03,0, INPUT 




FIL 






ATN 


04,, 




CAH 


06,, 




JS6 


03,0, INPUT 




FIL 






ATN 


04,, 




CAf< 


00,, 




as& 


03,0, INPUT 




Fit 






ATN 


04,, 




CAM 


07,, 




LFR 


07,2,LOCAT 




ATN 


00,, 




CAH 


12,, 




SFR 


Q7,2,L0CAT 




ATN 


06,, 




LFR 


07,, 




ANM 


14,3,96 




CAM 


08,2,-64 




JZM 


00,0,SOLV23 




ATN 


00,, 




CAM 


12,, 




ATN 


06,, 




SFR 


07t, 




S0LV23 ANM 


7,3,768 


OCT1400 


CAM 


08, , 




CAD 


15,3, 




SAM 


RELOC 




CRM 


08,2,9 




JPM 


08,0,SrMN00 





P2 


102 


P2 


103 


P2 


104 


P2 


105 


P2 


106 


P2 


107 


P2 


108 


P2 


109 


P2 


110 


P2 


111 


P2 


112 


P2 
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P2 


114 


P2 


115 


P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 


127 


P2 


128 


P2 


129 


P2 


130 


P2 


131 


P2 


132 


P2 


133 


P2 


134 


P2 


135 



S) 


h) 


02 


o 


(D 


SB 


(B 


P3 


< 
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O 


C+ 
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(D 
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(C 


to 


>> 
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■ • 


H- 




O 




O 




P 




• • 










^V^Cr" 




O 


ro 


ro 




Hj 


bo 


-J 




-P- 




ON 




VD 




-P- 



CRM 


Q^tZtl 




JPH 


Oa.QcREGMOO 




ANN 


05,3,3 




CAM 


08,2,-2 




Jin 


08.Q,S0Ltfll 




CAH 


1,2*1034 


0CT2012 


J SB 


03,Q,SBERR 




FIL 






JOC 


00,a,SYMLAB 




SOtVll JSB 


03,0,INP0T 




FIL 






ATM 


04,, 




LFR 


07,, 




ANH 


14,3,96 




CAM 


08,2,-96 




Sin 


08,0, SOL V6 




itLH 


02,, 




S0tV6 ANM 


144 3,12 




CAM 


08,2,-12 




CAO 


F6 




LPa 


6,REL0C 




ANN 


14,384 




EOM 


9 




SFR 


6,REL0C 




NQH 


9,M14 




JUM 


9,S0LV9A 




SFR 


4,SBR1 




CAM 


1,1040 




CALL 


SBERR 




LFR 


4,SBR1 




S0LV9A SAM 


F6 




JZM 


08.0,S0L¥7 




AOM 


08,2,12 




jyM 


08,0,S0ty8 





P2 


136 


P2 


137 


P2 


138 


?2 


139 


P2 


140 


P2 


141 


P2 


142 


P2 


143 


P2 


144 


P2 


145 


P2 


146 


P2 


147 


P2 


148 


P2 


149 


P2 


150 


P2 


151 


P2 


152 


P2 


153 


P2 


154 


P2 


155 


P2 


156 


P2 


157 


P2 


158 


P2 


159 


P2 


160 


P2 


161 


P2 


162 


P2 


163 


P2 


164 


P2 


165 


P2 


166 


P2 


167 


P2 


168 


P2 


169 
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CD 
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fD 


CO 


• V 
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>• 


H- 




O 




O 




13 




P 








0» 










vn Laj^ 




o 


ro 


ro 




H) 


o 

CD 


^ 




4=- 




ON 




VO 




-p- 





CAH 


1,2,1024 




JDC 


00,0,SOLV9 


S0LV8 


CAM 


15,, 




S8M 


08,2,4 




CAM 


1,2,5124 




JIH 


Q8,0,S0LV9 




AOM 


01,2,1 


S0LV9 


JS8 
FIL 


03,0,SBERR 




JOC 


00,0,LAI;ATE 


S0LV7 


ANM 


14,3,3 




AOM 


07,, 




ANM 


07,3,4 




CAM 


08,, 




JZM 


08,0,LALATE 




CRM 


08,3,2 




AOM 


15., 




ANM 


07,2,-5 


LALATi 


ANM 


05,3,15 




CAM 


08,2,-10 




JZM 


a.SUBSTl 




CAM 


4,M15 




CAM 


03, 2, SUBS T 




SFR 


4, COMMON- 1 




SFR 


05, 2, COMMON- 2 




SFR 


Q6,28C0MM0N-3 




CAM 


06,, 




CAM 


07,, 




TRA 


INFEG 


SYMMOO 


CRM 


08,2,1 




JNM 


08,0,REGM00 


SYMLAB 


CAM 


03,2,SUBST 




JOC 


00,0,S8C0M}> 


REGMOD 


JSB 


03,0, INPUT 



OCT2000 



OCT 12004 



LAST BYTE 

SET UP INTEGER AS THOUGH BYTE READ 

TEMPORARY STQTA6E FOR SBCOMP 



LATE ENTRY TO SBCOMP 



P2 


170 


P2 


171 


P2 


172 


P2 


173 


P2 


174 


P2 


175 


P2 


176 


P2 


177 


P2 


178 


P2 


179 


P2 


180 


P2 


181 


P2 


182 


P2 


183 


P2 


184 


P2 


185 


P2 


186 


P2 


187 


P2 


188 


P2 


189 


P2 


190 


P2 


191 


P2 


192 


P2 


193 


P2 


194 


P2 


195 


P2 


196 


P2 


197 


n 


198 


P2 


199 


P2 


200 


P2 


201 


P2 


202 


P2 


203 



w 


^ ™ P 


tt> 


JB fP P 


< 


OQ O cl- 


H- 


(D ct fB 


to 


.. H- •■ 


H- 


O 


O 


P 







•• 






ONU) -J 




o ro ro 




Hj • -J 




CD-^ 




-1^ ON 




vo -p- 





FIL 








AN« 


05,3,7 






CAM 


09,, 






JUH 


09fO,SOLV10 






CSM 


10,2,16 






JNM 


08,0, SOL V19 






CSM 


10,2,8 




S0LV19 


ATN 


04, , 






AOH 


10,, 






JMM 


10,0, SOL V20 






CAN 


1,2,5134 


0Cri2016 




JSB 


03,0,SBERR 






FIL 








CAH 


04,, 




SOLtfZO 


CRH 


04,3,11 






CAM 


15,, 






JOC 


00,0,SOLV14 




sot V 10 


SBM 


09,2,2 






JZM 


09,0,SdLV12 






CAM 


15,, 






J DC 


OOrOrSOLVlI 




S0LV12 


ATN 


04,, 






LFR 


07,, 






ANN 


14,3t96 






CAM 


10,2,-96 






JZM 


10,0,SOLV13 






JLH 


02,. 




SOL VI 3 


ANN 


14,3,12 






CAM 


09, * 






JZM 


09,0, SOL V15 






SBM 


09,2,12 






JZM 


09,0, SOL VI 5 






CRN 


08,3,9 






SBN 


09,2,-12 





P2 


204 


P2 


205 


P2 


206 


P2 


207 


P2 


208 


P2 


209 


P2 


210 


P2 


211 


P2 


212 


P2 


213 


P2 


214 


P2 


215 


P2 


216 


P2 


217 


P2 


218 


P2 


219 


P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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P2 


237 



w 
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(D 
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<! 
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H- 
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CO 
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H- 


O 


O 


P 


a 






-JUJ;-J 




o fo ro 




Hj . _g 




CD^^ 




-P- ON 




vo -p- 





J2H 


09,0,SOLV14 






CAN 


1,2,5131 


OCT12013 




JNH 


09«Q,S0LV16 






A OH 


01,2,1 






ANN 


15,2,28 






iOC 


00,0,SQLV16 




SOL VI 5 


CAN 


15,, 






CAN 


1,2,5126 


0CT12006 


S0LV16 


JSB 
FIL 


03,0,SBERR 




S0tVl4 


AMM 


05,3,15 






CAN 


08,2,-8 






JPN 


08,0,SUBST1 




SOLVIT 


CAN 


1,2,5133 


0CT12015 




JSB 


03,O,S8EaR 






FIL 








CSN 


04,2,1 






J DC 


0Or0,SU&ST2 






FIL 






SU8ST 


CAN 


15,M13 


RETURN FRON S8C0NP 


SU8STI 


CAN 


04,, 




SUB ST 2 


ORN 


11,2,2048 


0CT4000 




4TN 


15,, 






CAN 


10,, 






SFR 


06,2,TENP*2 






LFR 


06, 2, TEMP* 1 






ATN 


08,, 






LFR 


07,, 






ORB 


09,2,4 






ANN 


12,2,4095 


0CT7777 




ATN 


08^, 






SPR 


07,, 






LFR 


06e2,TENP*2 






JNN 


07,09 SUBST3 





P2 
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P2 
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P2 
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P2 
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P2 
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P2 
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O0,O,SU8ST5 


SUBST4 CRM 
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40M 
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JNN 


08,Q*SUBST5 


AOM 


10,2,1 


SUBST5 CRM 


0?,2,l 


SUBST3 ATN 


06,, 


LFR 


0?,, 


ANH 


1*,3«96 


CAM 


08,2,-96 


JUM 


8,SUBST6 


CAM 


1,2,5129 


JSB 


03,0,SBERR 


FIL 




J0C 


Q0,0,SyBST7 


SUBST6 AOM 


08,2,64 


J2M 
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14,, 
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07,3,1 


SUBSTB ATM 
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ADM 


15,, 


ORM 


14,2,96 


CAO 


f^ 


LFR 


6,REL0C 


ANN 


9,384 



NOT PREVIOUSLY DEFINED NAME 
OCT12011 



CHAINED 

0CT17774 



P2 
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VO 




-p- 
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14 




SAH 
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ATN 


06,, 




SFR 


07,, 




JUM 


08,0,SUBST7 




ATN 


13,, 




CAH 


06, • 




JOC 


00,Q,SUBST3 


SUBSTT 


JNN 


04,0,SKIPl 




JOC 


00,0, SOL V2 




F!L 




TEHP 


BSS 


3 


INPUT 


SFR 


7,111*1 




SFR 


6,111*2 




LFR 


6,INST0R 




LFR 


7,!I8 




ORB 


H9 




CA« 


4,H12 




CJU 


9,, INPUT! 




CAH 


9,r4 




CJU 


10,,INPUT2 




CAM 


12* READ 




ATM 


11,1. 




cm 


15 




CAH 


13,H8-255 




SFR 


4,111 




SFR 


7,INPUT3 




CALL 


SYSAUX 


INPUT3 


BSS 


I 




CAH 


8,2»H.BUFI+255-Hl3 




LFR 


4,111 




CAH 


10,-256 


INPUT 2 


A OH 


8«1 


IMPUTl 


SFR 


6, INS TOR 
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3.3 NICAP Pass III 

3.3.1 The Input to Pass III and Output from Pass III 

The input to Pass III is contained on the dmrn^ core memory and tape 6 
from passes 1 and 2. 

In the case of too many errors or machine malfunction. Pass III exits 
to SYSERR with Ml containing 51^ and 513 respectively. Otherwise exit is to 
SYSTEM. Tape 7 has the binary card images, 12 cards per record copied after 
whatever was there before. The last block has a sign bit in word 240 of the 
block. Drum block has the header card(s) (up to 12 in number allowed). 
Otherwise drum and core storage is unchanged in the meaningful areas. The 
listing and binary cards are sent out via SYSIjO. 
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3,3<,2 Description 

Pass III is primarily concerned with outputting the assemhled source 
program in the form of a listing and a "binary deck. If the control card 
$ PRINT OBJECT is present in the source deck, Pass III will cause a listing to 
be output o If the control card $ PUNCH OBJECT is included in the user's deck. 
Pass III will cause a binary deck, equivalent to the original program to be 
punched. In any case, Pass III will construct this binary deck and copy it 
onto Tape 7, to be used for future loading of the source program. Processing 
for orders and pseudo operations includes; 

1) assembling the quarter words of machine code 

2) detecting errors 

3) printing out the assembled instruction 

k) producing binary image of assembled instruction and 
putting them on tape 7» 

The internal flow in Pass III can be summarized as follows: the BCD card image 
is read from Drum or Tape 6, It is then placed in the print buffer for future 
listing (if a listing is desired). At this time, the decimal card count is 
also inserted into the buffer, and, if an error has been identified on this 
card by either Passes I or II, an asterisk is inserted. Next the reference byte 
of the Intermediate Language Statement is read and tested. If it is a control 
"begin," a switch is set which Inhibits the listing; if it is a control "end, " 
the switch is reset. At this time further implementation has not begun of the 
MACRO commands which will use these options. If the reference byte is an order 
the next byte is read and the subtype extracted. The necessary addresses are 
calculated and machine code is generated in quarter words. As these are formed, 
they are output into the print buffer via subroutines and placed into binary 
cards. If during assembly, an error is detected, an asterisk is inserted into 
the print buffer. The initial quaeter word of each word output into the buffer 
causes the octal and decimal location to be generated. When either an IL 
statement (one card) has been completed, or the four quarter words of the 
buffer have been filled, the contents of the buffer are listed. When the card 
has been assembled, control again returns to RCARD and another card is read. 
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Pseudo commands are treated in the same way, with the exception of 
GJD. op causes the assembly to end, and the binary output to be completed and 
transferred to tape. Control then passes to a subroutine (SWAP) which reorders 
the error list and then transfers to SYSTEM, 
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3,3.3 Control Words Used in Pass III 
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a = 1^ No listing 

p = 1, MACRO (inhibit listing) 

7 = 1, Print "buffer not empty 
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a = 0, No punched binary deck ($ PUNCH OBJECT not 
present) 

B = 0, No output of "binary tape (program is not to 
be executed) 



BiNcre 









Group of 3 




Q word 




Word 



BINCDl and BINCD2 control the assembling of binary card images in 
core. BINCDl controls the last 56 columns while BINCD2 controls columns 11 
to 2k where the relocate bits are stored. 
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RELOC 







13 17 18 26 33 31 



39 











J- 


f? 








a 


P 






Location of 
binary ceord 



ct, 3 are relocation bits. 

T T 
a , P are temporary bits of relocation. 



RELOCT 



RDCOW 



RELOCT = RELOC except Q = LC - 20, 





Wait bit 




Location 
in buffer 




Card buf- 
fer count 




Drum (-j or 
tape (0) 



Word used in SBRD to determine where card images will 
be put. 



INSTOR 



Word 
Location 



Q W-ii- 
Location 



Location in 
256 Block 



Count 



Word used in input to determine where next IL byte 
will be read from. 
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The FORMAT of the listing is as follows (132 characters per line) 



Columns 


1- k 


Decimal Card Kumber 


Column 


5 


Error Indication 


Columns 


6- 8 


Blank 


Columns 


9-12 


Decimal Location 


Column 


13 


Blank 


Columns 


14-19 


Octal Location 


Column 


20 


Dividor (*) 


Column 


21 


Blank 


Column 


22-26 


Octal Quarter Words 


Columns 


30-34 




Columns 


38-42 




Columns 


1+6-50 




Columns 


53-132 


Card Image 
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3.3A Initialization of Pass III 

On initial entry to Pass III, it loads control words CWPR, CWDR, 
constructs header card and loads first IL block from drum to core. 






CALL LIST FR6M 
DRUM TO 
iOOOs 



PRINT ME:SS^GE 
BliFFER 



LG^D PUMCH, 

PRIMT^WDGO 

CCsMTRGL Id 

CWPR 



LGIXD F5 WITH KOI 
ITEM IM EWTRY 
BLOCK 



PUT PRCiCRAM LEM 
GTH SIGM BIT,C6MM6M 
LEMGTH C0N7R6L FGR 
HE^DCKRD IWTCl 
TEMPORKRY STORAGE 



PDT **C ALLS, ENT- 
RIES, ER/^SEikBLE 
AMD COM MOW IHrd«s- 
C0L.5,4,,7,e>6F 
HEAD CARD 



LOAD DRUM 

CoK»TR6L 

WORDS 




LOAD F4- WITH 

CORRESPOMDIKiG 

EMTRYIhikl^ME 

TABLE 



PRIMT 

TRA^MSFEK 

VECTOR 




E XTRACT 
LOCATI0>Ki OF 
KiAME: 



SBERR 
(CODEl-L^ 



HDZ 



YES 



Ml^t 



SET BLAKiK 
F(SR MAME 



B I MARY 



COKi STRUCT 
HCA^OER CARCi^ 
LC>AD NiAMeSTNi 
BCD OKi 
C/^RD 




COPY EKiTRY 

BLACK T/i DRUM 

l^IL BLACK TO 

coke: 



R CARD 




K30'» 



RESET COMTROU 

F6R SUBSEOOEWT 

CAKiTROL 




RESTORE COlOiTRAL 
CCiL\iMNi AKi Ct\RD 



YES 
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3.3.5 Subroutines of Pass III 

OUTl and OUT 2 

Output (1 or 2) bytes^ link in M3 byte in MO; second in Ml; 
print buffer if word is completed. 



SAMCFR'S FGR 

TLMPCRftnY. L6^b 

CWPR CWDR 



SBQCT L 
( L6C£».TI0Ki) 




6UT1— ►OUTl. 




SB OCT P 
(PROGRAM') 




(OUTi j 



SBPR 
((OUTPUT PRUBF) 



K)^( 



Ki^ 



J 



CLCAR 
RETLOCATItifO 
BITS 



u 



RESTORE 
PR'S 



TLH M3 
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SBOCTL and SBOCTP 

Convert location or program "byte to octal and place in appropriate 
location in PRBUF. Also convert location to Decimal; Program Byte is sent to 
binary with byte in MO. Only entry is from OUTI/2, BESS and MPROG. 




^SBOCTP^ 
(FROGRAt 



£ 



LO^D ocmL 

IWTCi ^PPR6PRI 
ATE BUFPER 
LOC£vTl^K^ 



I 



DECVT 
(DEC LOCATIOM) 



IZ 



JLH M3 



LOAkD BYTE 

TfsiT6 Mi 
SAVE FR'S 



VES 



C6MVERT 
BIMARYT(i 

OCTAL 




SET BUFFER 
IsA6T E>1PTY 



YES 




BIMARY 



3! 



3: 



RESTCiRE FR 




SBPR 



9/^ve: fr's 

VOR TEMP 
LOfxD FR5 
WITH CWPR 




restore: fr^s 



PUT C-C. 
I>rrG PRBliF 



DECVT 
(CONVERT C.C. 

TO Dec\inA.v.^ 




SWITCH TO 

PRihyr^rhiCRE 

MEMT C.C- 



I 



TLR M3 



BR IMG 
RDCONJ 
TO FR=5 



XhiSERT • 
INi PRBViP 
HOCREMETI^T 
ETRROR COViKJT 




WAIT 



i 



PliT CARD 
IMAGE I^CiTO 
PRBliF 



READ BLCsCK 
FROM TAPe G 
XUTO iKiBDF 



REAO BLi^CK 
FROM DRUM 
IMTO IKiBUF 



I 



o 




m 


P3 




hri 


hi 






P. 




o 


o 




n 




C 




n 




r+ 






w 


H- 


CD 


p 


SD 


d- 


P' 


o 






O 


It) 


93 


W 


•-j 


w 


Pj 


Si 


H- 


v*. 


B 




P 


H- 


TO 


>-+! 


(5 




m 


hi 




fo 


Hj 


Ui 


i-i 


CD 


o 




3 


M 






O 


(> 


fi 


h! 


c: 




^ 


H 


^-^ 


M 


1^ 




SB 


(D 


W 


►-i 


CD 


*-i 




O 


o^ 


fi 






P 


C) 


t3 


P 


Pi 


o 


•d 





fi 


•-< 


d- 


Pj 




s* 


H- 




ti 


•tI 


d- 


fi: 


O 


rl- 






'-6 


* 


S3 




w 


J-i 


^ 


(-1- 


>«. 


C1 






>d 


^T) 







<rl- 


td 




^ 


P- 
fD 


• 


O 




H- 








P3 




h-* 





w 


►rj CQ O 


(D 


£D CD JB 


< 


m o d- 


H- 


(D d- tC 


CD 


.. H- .. 


H- 


O 


n 





a 






(^ UJ -<l 




uj ro 




O • --J 




Hj vji---^ 




ON 




ON -f=- 
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SBPR 

Output PRBUF, printing it as one line; also puts * between octal 
location and first Q word. 



SAVE FR^S, 
LFR 5,CWPR 



MCsLIST/ 
BUFFER EMPTY. 
7 



OUT PUT 
BUFFER 



CLEAR 

PRBUF 



YES 



i 




RESTORE 
FR-S 




n 



SET BUFFER 
EMPTY 
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BINARY 

Produces "binary cards if punch object bit is on, and binary card 
images on tape 7^ puts RELOC bits on cards. For card description see manual 
Chapter 1; CALLed from BESS, natural sequence in SBOCT; link in M3, character 
is in MO. 




BINARY} 



SAVE FR'S 
LC^b CONTROL 
WORDS 



MV6RD C0UI^T-*M2 
BYTE-^MS 



PUT SIGKi BIT 

OF BYTE 
HO COLUMMS 
10-24- 



PUT BYTE 

IhiTO 
BlMSTO + l 



SIGM BIT IKi 
COLUMM <=) 



PUT i^ L6- 
CATIOM IM 
COLUMW 10 



SBERR 
CASE 10 




RESTORE ¥KS 
SAVE C6MTRCiL. 
CCiUKiTS 



-JVM n3 



PUT 
BlKiSTO+1 XtiTO 
APPROPIATE 
COLUnNJiS 




RESET 

COUKJTS TO 

isr EMTRY 



OUTPUT BUFFER 
J(S TAPE fOUMBER 
7, CLEAR BUF- 
FER RESET 
COUViTS 




BlhilT 



SET COLUMy 
1- F0R7,<9 




PUT RCL6CATED 

BITS IW 
COLUMKiS 1^-241 




OUTPUT 
BIKiARYCARD 
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Subroutines Continued 



SBERR 



Deals with errors detected during Pass III. It causes an asterisk 
to be inserted into the print buffer and enters the card number and type of 
error into the error list. If the total number of errors exceed 256, it 
transfers to SYSERR with assembly terminated. When it is entered, the error 
code is in Ml and the link is in M3. 



IHPUT 



Causes the next byte of Intermediate Language to be loaded into Vh. 
If the block has been read, it causes a new block to be read from the drum. 
The control word which contains the locations of next byte is INSTjZ$R. Link 
is in M3, 



SBCOMP 

Calculates the nuiiKrical value of an address of a pseudo order. 
Link is in M3, result is in MI3. 



ADCOMP 

ADCOMP is identical to SBCOMP except that it calculates the value 
of an address of an order and is not a closed subroutine. 



Date: 

Section: 

Page: 

Revision: 



l/21/ek 
3.3.6 
1 of 3 



3.'3..^6 Ps-eMp Orders 

When a reference byte has been recognized as denoting a pseudo 
operation, control transfers to PSEUDO, which determines which type of pseudo 
operation it is: 



Mnemonic 


Routine Used 


FIL 


FIL 


FLD 


FLD 


BSS 


BESSl 


BES 


BESS2 


ORG 


ORG 


COMMON 


COMMONl 


GO 


GOT 


ERASE 


ERASE 


ASSIGN 


ASSIGN 


CALL 


CALL 


DECQ 


DECQ 


10 





OCTQ 


OCTQ 


DEC 


DECHR 


CHR 


CHR 
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[org J 



BESS^ 




SUBRT:FIL 



S^VE F5 
LOKD Bi^l^RYC6^i• 
TRGL WD TO 
COM PLETE, CD 







OUT PUT 




OUTPUT REST 




AMOUMT 




OF CARD 




OF BES OM 
CA.RD 




♦ 




J 





ADD AMOUNiT 
OF BES 

T6 
LOCATICW 




OUTPUT BES/S 
YJITH LACATICilV) 





CORRECT 
L£iCAT)6W 










READ RF 








RESET 
LOCATIGNJ TO 
AM(:iUWT (^F 
ORG 



BETGOT 
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(z 


^ 




SUBKI:FIL 


► 


SET GO 
BIT XN 
BIKJ BUF 


J 










V 


LOAD NiAME: 


— 


SUBRT 
TMPUT 


YES ^/^^ "^O^^ 

^— -kQ, name > 


\ 


1 








Ki6 


EXTRACT O-W 
ADDRESS 




SUBRT: 
MAME 


\ 


r 


SUBRT: SBCOMP 












^ 








\\ 


BESSA 


— 


GO ADDRESS 

IWTO C6LUKM 7 

AMD CARRY TO 

COLUMNS B 


— 


PUT O-W 
ADDRESS INiT6 
BIMCD AK}D 
GO BIT 


t 


' 










SUBRT: 
BE GOT 




OUTPUT BIWBUF 
TO TAPE **G 




SUBRT: 
SWAP R 










y 


1 






— 


REORDER 
ERROR LIST 




SYSTEM 








1 



3»3=7 Orders 
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SAVE BVTt JUST 
READ -»- MIZ. 
aUBTVP£*ril4 

SFR7;2, 
COMMOW + Z 



READ RF 



OurPUT 
e>HOBT OBDEB 
FEOH M4 





CHANJG- 3 



TLU — F4 



READ 

ORDER 

1-14 -*r-112 



7SM TAG- 




CHANGE SUBTYPE 

110 M14 TO 0,0 

SFR 7 2,C0+E 



coneiKie ORDER I 

FROM t^ A, TAG- 
PROM r-n l^ 
IWTO M IZ,SFR 
T, a, COMMON +£ 



READ ORDER 




TSM 
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& 



SBERR 
ALL FR 
ILLEGAL 



OUTPUT 
SHORT ORDER 



READRF 




TSL 



READ BYTE 



ADCOMP 



TLU — F4 
AND IN RELOC BITS 
M3 - M4 




NAME 




INTEGER 



5UBRT: 
SBERR 



LABEL 



^' SYMBOL 



SBERR 
LABEL INSTEAD 
OF SYMBOL 



EQSYMl 



SET*=0 



" INTEGl 



F7 = 0,#,-4, 
MIO = 
MUr M LIST 



MODIFl 



F7 = l,#,-4, 
MiO = 
M11 = M LIST 



ACE 



INSERT F,3 AND 
OUTPUT ORDER 
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OUT 1 
READ BYTE 
OUT 1 



ADD C-FIELDOF 
LABEL TO C-FIELD 
IN MIZ 
SFR7,2, 
COMMON +2 



SHIFT RELOC BITS 
OUT 2 



© 




ANYTHING 



ELSE 



OUTl 



ADCOMP 



NAME 



READ NAME 
TLU 
SET RELOC BITS 
TRANSFER M3-M4 




M0DIF3, 



CAM4 



LATMOD 




FREG 
UNDEFINED 



OUT 1 
"ATNO,0" 




<a 



SET INITIAL 
VALUES FOR LATE 
ENTRY INTO 
ADCOMP 



OUT 2 
"<M12>" "0" 



INTEG 



READRF 
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I 3 J 


OUTPUT ORDER 

ATN B,0 
WHERE B IS IN M4 


"^^ EXT ^^ 


V 




<8 
V 


OUTPUT LONG ORDER 
1ST BYTE FROM M12 
2ND BYTE=0 




D20 


^^ 




V 


READRF 




SET INITIAL VALUES 
FOR LATE ENTRY 
INTO ADCOMP 






r 


^ 


F 




L AT MOD 
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OUTPUT lOm ORDER 
1ST BYTE FROM M12 
2ND BYTE FROM M4 



I 




ERROR 
PRINT 



I 



D21 



READRF 



I 



SET INITIAL 
VALUES FOR 
LATE ENTRY 
INTO ADCOMP 



I 



REGIST 
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In the SBCOMP and ADCOMP flow charts that follow, a push down is 
maintained. The top level is in F7 and lower levels are in memory addressed 
to the top by a pointer in M8. The format of the push down is: 



/' 



L 



preceding operation 
and level 



*- number, modifier address * k 



= number 
\ 1 = modifier 

1^-^096 = accumulator 



The abbreviations TL and SL are used for Top Level and Second Level of this push 
down. TLV means the value of the Top Level, level (TL) refers to the precedence 
level of the operation in the top level of the stack. An M list is also 
referred to in the chart. This is a stack of modifier addresses and modifier 
signs pointed to by MH. These are used to generate ATN s and SFN's when iy?Z5UT 
is CALLed, L^JZ5kM scans the list to find a positively used modifier, and removes 
it if found. 

For a description of the general method behind this program, see 
"Address Compilation in the ILLIAC II Assembler," C. W. Gear, Computer Journal, 
6, h (January, 1964). 
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SAVE 
r4,F5,Ffo 




r 



START 
M LIST 



OPERATIGM 



READ 2 




READO 




RESET 



Mt, MT 



Mi5 



T\_= *t 
TLV = Ci 



iKiPUT OPER- 
ATlCihi BYTE 



-S1G(0 



STCRE T6P 
LEVEL 6F PU9H 
D5WM. 
TCi = Lf^ST 
OPERATION 



i 



READ a 




RESTORE 
Tap 6F PUSH 



PDEMP 
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INPUT 
NAME ETC. 



OPEN 
BRACKET 



OTHEI 




CHR EXT 
TO M5 
OPEN NEW M LIST 



TESTO 



ERROR 



VALUE 
TO M4 



TL = * 
TLV= M4 



TL= MOD 
TLV= M3 



rpDEMpY 






LEVEL 



SBCOMP 
EXIT 





M6 = -4 



YES 
P5EUD0 



ACE 



RESTORE 
F4,F55F6 



READ 1 
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Treadi j 



INPUT BYTE 



CHR EXT. 
TO M5 




TABLE 1 
stjBRT 



LEVEL 



REDUCE 
LEVEL BYl 




© 



FAKE 



YES 



ERASE TOP 
M LIST 




READ 1 



Date: 


7/27/64 


Section: 


3.3.7 


Page: 


10 of 27 


Revision: 





ADDRESS COMPILATION EXIT 




ACE 




YES 



OUTPUT 
SXAO 



TL=MOD 



ORDER TO F4 



LDM?SSR 



TL TO 
M LIST 
TLV =0 



OUTPUT 
M LIST 





CAD* CAM 

— ► ' 



OUTPUT 
SHORT ORDER 



SHIFT RELOC BITS 

OUTPUT 
LONG ORDER 
ADDRESS =TLV 



ENDACE 




TLV TO 
M LIST 



M LIST 
OUTPUT 



YES, 




CAD 



OUTPUT 
SHORT ORDER 



ACE 7 



LOOK ! 
(FOR +VE 
MODIFIER) 
-? 



ABSENT 



PRESENT 



ADD TO 
ORDER 



MAKE 

CAD 8,3,- 

CASE 



ACE 8 
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MAKE LONG 
ORDER 




CAM 




(acesj- 



ADD B=8 
C=l TO ORDER 
CADS, 3, 



M LIST OUT 



I 



ENDACE 



SHIFT RELOC BITS 

OUTPUT 
LONG ORDER 
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TABLE 2 



SLTO F4 








YES 


PTT7 









PTT3 



SUBRT: 



PREPARE ORDER 
CAD9,3TLV 



TLV TO M LIST 
TLV = 



I 



OUTPUT 
M LIST 




TL = ACC 



OUTPUT 
LONG ORDER 



D6 
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TABLE 2 (Cont'd) 



(pTT3y 



TLV TO 
M LIST 



TLV=0 




M LIST OUT 



ORDER = DIV 



J 



OUTPUT 
LONG ORDER 



DECREASE 

PUSH DOWN 

LOAD F7 

WITH TLjTO 




PTT4 



PREPARE 
MPY9,3,TLV 
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TABLE 2 (Cont'd) 



^PTTlj 



S,3,TLV 




ORDER = SUB 
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TABLE 1 




PSTl 




EXIT 




RESTORE M3 



EXIT 7 



T0= SO 



SAVE F4 
DECREASE PD 
F4 = SL 




PST32 



PST17 



PST9 



PST3 



PSTZ 



TLV=-TLV 



H9 TO M LIST 



SLTO M9 



(txiTzj (Exirqj 
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^^-— — *,,^^ 






m 




(P5T2 1 m 


CHANGE MOD 
SIGN IFTO- 


EXIT 1 














SUBRT: 


» 


PREPARE ATN 








, YE£ 




' 




CHANGE 
TO SFN 


<^L = -MOD^ 








1 




\ 


NO 


1 






OUTPUT 

ATN/SFN 

MOD 


PST5) 




r 


' 








SLV = 


1 






1 


> 








OUTPUT 
CAD 9,3jSLV 








1 


1 


PST7 


YES 


<^ TL ACC^ 


4 


SLV= TLV 








' 


NO 








OUTPUT 




lO'^ 




ATN ■ 


/SFN 






1 
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e 



(pSTVj—t^ 



EXIT 2 



SLV=0 



PREPARE 
MPY9,3,SLV 



© 



TL= + ACC 




MAKE 
DIV 



OUTPUT 
LONG ORDER 



YES 



ATN-SFN 



i 



OUTPUT 
ORDER 
ATN/SFN 



PREPARE 
ATN SLV 





PST13 
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PREPARE 
MPY9,3,SLV 



(psTiyj 



(EXrT4V» 



YES 



TL= ACC 
WITH TO SIGN 



EXIT! 



r- 
n 






JL^ 


MAKE OIV 


jT* 


i 






% 


EXIT 2 


OUTPUT 




LONG '~' 


ORDER 




TL SIGN 
= TL SIGN® 
SIGN TO 




YES 



PST16 



SL MOD 
TO M LIST 
SLV=0 



130 



M LIST 
OUTPUT 



PREPARE 
ADD 9,3,5LV 
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HAKE SUB 



COT PUT 
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fpSTiGj 



TLV = SLV 



OUTPUT 91A 



I 



EJCITl 
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DECRE:^SE: 

^CC COUMT 

BY 4- 



i 



TL «5\GKi = 
TLV ©SL.V 



I 



TLV = TLV e 
SlGrMTO 
<SLV = SLVe 
TLV 



TLV=TLNJe 
SlGNi SO 



PJ?EP^RE MPY/ 
MID ^^3^ BP^SE. 
L 




OUTPUT LOKkG 
ORDER 



I 



1 



PREPARE ADD/ 
SUB 8^3-^S^SE U 



EXIT 2 
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( psTi^y 



EXIT7 




M9 = TLV® 
TLV = SLV 



TLV TO 
M L\^T 
TLV=0 



i 



OUTPUT 
M LIST 



PREPKRE 
MPY/DIV 
<9, "SiTLV 



GliTPUT 
LfiKiG CiRDER 



EXITZ 



TL=SL 

T0=SO 

TLV-SLV 



EXIT*? 



yes/Cevel(to"^= 

LEVEL (=.Ci)^ 
7 



PST25 




TLV=-TLV 



THIRD LV 
THIRD LV + 
TLV 
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PST25^ 



^ ' 


C TO -= + > 




NO 

V 


■ 


TLV= -TLV 




» 

1 


' 




E)(CHANGE 




TOP ^ 2ND 




LEVELS 









1 


r 


TL=ACC 
T0 = + 







EXIT? 



SUBRT: 
L_ e)TORE 



PST5 




PST35 



PST34 



M9 = 
TLV©TO 



/exi-M 



1 



TLV=SLV 
TL= SL 



EXIT 9 



Date: 


7/27/64 


Section: 


3.3.7 


Page: 


2k of 27 


Revision: 





TLV SIGN 
SET BY TO 





NO 



EXIT 10 



PST16 



TLV=-TLV 



TLV= A/TLV 



TLV=TLV+SLV 



PSTll 



SPEXIT 




A =SLV 



NO 



TLV=TLV*A 



ZJ 



EXIT 2 
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M LIST OUTPUT SUBROUTINE 




MOUT 



SAVE F4 
M2 = -M-l 




M9 = NEXT 
LIST MEMBER 



YES 



GET NEXT 
M LIST 
MEMBER 



OUTPUT 
ATN/SFN 




CHANGE 
ITS SIGN 




:;^o 



M9 = NEXT 
LIST MEMBER 




r— Ma = -N 



YES 




RESTORE F4 



SUBRT 
EXIT 
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LSTORE SUBROUTINE 




COUMT 



= 0. 



1 


^ 
? ^ 








\ 


^ 




'1 


SAVE F4 
OUTPUT SAM 8, 
•3 ,BASEi + C 






IMCREKSE ACC 
CC^UMT BY 1 


y 


^ 






^ 


r 


RESTORE F4 


^ 


^ 


SUBRT 
EXIT 



Date: 


7/27/6U 


Section: 


3.3.7 
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LOOK FOR POSITIVE MODIFIER SUBROUTINE 




M9 = -N 



YES 




NEXT M 

ENTRY TO 

F5 



M2 = + ve MOD 
M9 = -W-l-M9 




EXIT 
TO M3+1 



MOVE M ENTRY 
DOWN 1 PLACE 



M COUNT 
DECREASED 
BY i 



SUBRT 
EXIT 



3.3-8 Error Types of Pass III 



Type 


Fatal 





no 


1 


no 


2 


no 


3 


no 


k 


no 


5 


yes 


6 


yes 


7 


yes 


8 


yes 


9 


yes 


10 


no 


11 


yes 



Date: 


7/27/64 


Section: 


3.3 = 8 


Page: 


1 of 1 


Revision: 





Symbol used in place of a label 

Label used in place of a symbol 

FO illegally used 

Fl illegally used 

Some other Fast Register illegally used 

Modifiers used illegally 

A label or symbol used in place of tag 

Cannot be executed at computer time 

Undefined name 

Double defined name 

Multiple relocation 

Undefined entry 



Date: 


l/2l/6k 


Section: 


3.3.9 


Page: 


1 of 1 


Revision: 





3,3.9 Pass III Uses of Core 



Octal 



00000 

00400 
OlUOO 
02000 
Oij-000 
04i|-00 
17000 



ERROR LIST 

First word is control word; third quarter is count 

Intermediate language buffers 



Pass III program 
Binary card buffer 
Name table 
MONITOR 



4901 2C W 0g 


AR 




MICAP 


PASS 3 JAN 


SYSTAJ* 


EQUS 


76«0 


WRITE 


EQUS 


512 


CHKFL 


EQUS 


1096 


ORUHWO 


EQUS 


7946 


TUTRAH 


EQUS 


7947 


CHKRC 


EQUS 


1088 


BCKSPF 


EQUS 


1072 


BCKSPR 


EQUS 


1064 


EARBUF 


EQUS 





sysAux 


EQUS 


7938 


READ 


EQUS 





WAIT 


EQUS 


256 


LOAD 


EQUS 


7945 


SYSIO 


EQUS 


7939 


WTM 


EQUS 


1104 


REMIND 


EQUS 


1056 


SYSTEM 


EQUS 


7936 


SYSERR 


EQUS 


7937 




ORG 


1024 




CSM 


10,256 




CAO 


BLANKS 




SAM 


M10+256*BINBUF 




CJS 


10>0 




TRA 


MRROGR 




FIL 




CII8L0G 


DECQ 


OtOsOtO 


CC2 


OECQ 


PUOO.O.O.MLIST 


CC3 


OECQ 


0,0,-4,0 


MRCMG 


CAM 


1,513 


ERROR 


LFR 


7,CHPR 




CAM 


2,M13 




CALL 


SYSERR 



1,1965 



TAS 



P3 


1 


P3 


2 


P3 


3 


P3 


4 


P3 


5 


P3 


6 


P3 


7 


P3 


8 


P3 


9 


P3 


10 


P3 


11 


P3 


12 


P3 


13 


P3 


14 


P3 


15 


P3 


16 


P3 


17 


P3 


18 


P3 


19 


P3 


20 


P3 


21 


P3 


22 


P3 


23 


P3 


24 


P3 


25 


P3 


26 


P3 


27 


P3 


28 


P3 


29 


P3 


30 


P3 


31 


P3 


32 


P3 


33 



td 


hj 


CQ 


y 


fD 


P 


CD 


<! 


cn 


n 


d- 


H- 


CD 


d- 


(D 


m 


SB 


H- 


>• 


H- 




O 




o 




D 




P 










H UJ^ 




O 


(^ 


W 




H) 


M 


-J 




vn 


O 


o\ 




O 




■t^ 



OUT 2 

OUTl 
0UT3 



0U14 
OUTS 



0UT6 



SFR 

CSM 

TRA 

SFR 

CSM 

SFR 

SFR 

SFR 

LFR 

LFR 

CAH 

JUM 

CALL 

CAM 

CALL 

CJU 

CALL 

CSM 

ADM 

LFR 

CAM 

SFR 

LFR 

SFR 

CAM 

SFR 

LFR 

CJU 

SFR 

LFR 

LFR 

LFR 

LFR 

JLH 



SbOUTC 

OUT 3 

5,0UTC 

4,1 

4,0UTC+l 

6,0UTC-».2 

7,0UTC+3 

6,CWDR 

7,CMPR 

5,4>M10 

5, OUTS 

SBOCTL 

5,5+MlO 

SBOCTP 

1Q,QUT6 

S8PR 

10,4 

II, I 

4,0UTC-»-l 

Q,Ml 

4,0UTC*4 

4,REL0e 

4,REL0CT 

2 

4,REL0C 

4,0UTC+4 

4j0UT4 

6«CM0R 

4,0UTC+1 

SsOUTC 

6,QUTC*2 

7,OUTC*3 

M3 



C0UNT*2 



COUMT'l 



INITIAL POSN 
INSERT LOCATION 

CODE CONVERSION 
END OF WORD 
PRINT 

RESET Q-K-C 
INCREMENT W-C 



CLEAR RELOC BITS 



OUT 2 



P3 


35 


P3 


36 


P3 


37 


P3 


38 


P3 


39 


P3 


40 


P3 


41 


P3 


42 


P3 


43 


P3 


44 


P3 


45 


P3 


46 


P3 


47 


P3 


48 


P3 


49 


P3 


50 


P3 


51 


P3 


52 


P3 


53 


P3 


54 


P3 


55 


P3 


56 


P3 


57 


P3 


58 


P3 


59 


P3 


60 


P3 


61 


P3 


62 


P3 


63 


P3 


64 


P3 


65 


P3 


66 


P3 


67 



w 


hj D3 O 


fD 


p3 fB p3 


<; 


OQ O d- 


H- 


0) ct- (t 


m 


.. p. .. 


H- 


O 


O 


ti 


P 






ro uj — 5 




o (jo ro 




Hj • -J 




H~^- 




vn O 0\ 




o -p- 



OUTC 


BSS 


5 


SBRD 


SFR 


5,SBRC 




SFR 


4.S88C+1 




LFR 


5,C«PR 




mn 


4,S8RD2 




JNM 


6,SBRD2 




&NM 


7,<»095 




AOM 


5,1 




CAM 


l,M5 




CALL 


DECVT 




SAN 


PRBUF 


SBRDl 


ANH 


6,4095 




LFR 


4 




SBH 


0,M5 




JUM 


0,SBR02A 




CAD 


ASTER 




SAM 


PR8UF*l 




AOM 


6,1 




TRA 


SBRD I 


SBR02A 


SFR 


5»CWPR 




LFR 


5,R0C0N 




JZM 


4,S8R03+l 




CAM 


5,INBUF 




CALL 


SYSAUX 


SBRD3 


OECQ 


HAITf 0,0,0 




CSH 


4,10 




CAM 


OsPRBUF+T 




FLO 






CAD 


5,1, 




SAM 


oa* 




CJF 


4»0 




CJU 


6fSBR04+I 




CAN 


4,1 




CSM 


6,25 



NO LISTING 

MACRO 

SWITCH TO PRINT 

INCREMENT CC 



DEC CC 

NEXT ERROR 

NO ERRORS ON CARD 
INSERT » 

INCRENENT ERROR COUNT 



NO WAIT DURING TRANSFER 



RESET CARD COUNT 



CLEAR BUFFER 

NOT END OF CARD YET 
SET WAIT BIT 

CARD BUFFER COUNT 



P3 


68 


P3 


69 


P3 


TO 


P3 


71 


P3 


72 


P3 


73 


P3 


74 


P3 


75 


P3 


76 


P3 


77 


P3 


78 


P3 


79 


P3 


80 


P3 


81 


P3 


82 


P3 


83 


P3 


84 


P3 


85 


P3 


86 


P3 


87 


P3 


88 


P3 


89 


P3 


90 


P3 


91 


P3 


92 


P3 


93 


P3 


94 


P3 


95 


P3 


96 


P3 


97 


P3 


98 


P3 


99 


P3 


100 


P3 


101 



S) 


►xl 


CO 


u 


CD 


p 


CD 


(D 


<! 


OQ 


O 


d- 


H- 


CD 


c+ 


CD 


CO 


D 


H- 


so 


H- 




O 




O 




ti 




P 










LO U) 


.-J 




O 


U3 


ro 




H) 


H 


;;;J 




vn 


O 


a\ 




o 




-P- 



SBR05 
SBRiH 

SBRD2 



S8RC 

ASTER 

S8PR 



SBRRl 



JZ« 7,SBR05 

LFR 4.S8RD4 

cm 3,H7*6 

SFR 4,S8RD4 

CJU 7,SBR05 

CAM 3,1030 

SFR 4,SBRD4 

LfR 4,SeR03 

CAH 3,1030 

SFR 4,SBR03 

CALL SYSAUX 

DECQ READ, INBUF, 0,0 

SFR 5,R0C0N 

LFR 5,S8RC 

LFR 4,S8RC+1 

JLH M3 

BSS 2 

CHR !,♦ 

SFR 4, SBPC 

SFR 5,S8Pe4^1 

LFR 5,PRBUF*2 

ORH 7,44 

SFR 5,I»R8UF*2 

LFR S.CHPR 

4NH 4,SBPB2 

JNM 7,SBPR2 

CALL SYS 10 

OECQ MRirE42«PRBUF,0r0 

CAD 08, 3, BLANKS 

CAM Q^f»RBUF 

CSH 3, IT 

SAN 0,1, 

CJU 3,S8PR1 

ORH 7,4096 



ALREADY TAPE 6 

SET UP DRUM BLOCIC ADDRESS 

STILL DRUM 

SET UP TAPE 6 ADDRESS 



IN WAIT CALL TOO 



READ 



» BETWEEN LOCATION AND CONTENTS 



NO LIST 
NO PRINT OUT 



LIST PROSRAM 



CLEAR PR8UF 
RESET SWITCH 



P3 


102 


P3 


103 


P3 


104 


P3 


105 


P3 


106 


P3 


107 


P3 


108 


P3 


109 


P3 


110 


P3 


111 


P3 


112 


P3 


113 


P3 


114 


P3 


115 


P3 


116 


P3 


117 


P3 


118 


P3 


119 


P3 


120 


P3 


121 


P3 


122 


P3 


123 


P3 


124 


P3 


125 


P3 


126 


P3 


127 


P3 


128 


P3 


129 


P3 


130 


P3 


131 


P3 


132 


P3 


133 


P3 


134 


P3 


135 



w 


txl CO o 


fD 


pj 0) SB 


<l 


oq n c+ 


H- 


(D c+ fD 


m 


•• H- •■ 


H- 


O 


o 


^ 


?. 






-p-U) -J 




o u) ro 




i-b • -J 




H~^-~ 




vn O cr\ 




O -FT- 



SBI?R2 



SBPC 
ROCON 
SBOCTL 
SBOCTP 



SBOCTl 
SB0CT2 



SB0CT3 



SFR SsCWPR 

LFR 4,SBPC 

LFR 5,SBPC+l 

JLH m 

BSS 2 

OECQ l,INBUF,=25,-4 

ORB 11 

CAM 1,M0 

SFR 4,S80CTC 

CAM 3,SB0CT5 

ANM 15,4095 

SFR 7,CHPR 

SFR 6sC«0R 

JNM IZ.BINART 

CAM 10 

CSM 15t5 

CRM 1,12 

ANH It 3.1 

CAM 9 

JUH 9,SB0CT2 

CAM 9,10 

CRM 10,7 

AOM 10,H9 

CJZ 15,SB0CT4 

CRM I5»l 

JNM 15.SB0CT3 

CAM 12, Ml 3 

CAM 13,M10 

CAM 10 

CRM 15.12 

CRM I, 10 

AMN 1,7 

CAM 9 

TRA SBOCTl 



— .BEFFER ADDRESS, CARD COUNT, BLOCK C0UNP3 



SET PRINT SWITCH OH 



NO LIST 



BINARY TO OCTAL CONVERSION 



P3 


136 


P3 


137 


P3 


138 


P3 


139 


P3 


140 


P3 


141 


P3 


142 


P3 


143 


P3 


144 


P3 


145 


P3 


146 


P3 


147 


P3 


148 


P3 


149 


P3 


150 


P3 


151 


P3 


152 


P3 


153 


P3 


154 


P3 


155 


P3 


156 


P3 


157 


P3 


158 


P3 


159 


P3 


160 


P3 


161 


P3 


162 


P3 


163 


P3 


164 


P3 


165 


P3 


166 


P3 


167 


P3 


168 


P3 


169 



SJ 


hj 


CQ 


O 


CD 


90 


a> 


SB 


<1 


m 


o 


d- 


H- 


(D 


d- 


fD 


m 


OB 


H- 


■ • 


H- 




o 




o 




13 




l=s 








■ " 










vn UJ 


-J 




O 


LO 


ro 




H) 


H' 


;^ 




vn 


O 


ON 




O 




-p- 



SB0CT4 


CAM 


I^.MIO 




CAM 


15 




SFR 


7,PRBUF+2*M5 




JUH 


5, BINARY 




LFR 


T.CMPR 




CAM 


1*M11 




CALL 


DECVT 




LOR 


PRBUF+1 




SAM 


PRBUF+1 


BINART 


J2M 


5,SBOCT5 


BINARY 


SFR 


5,BINC0 




SFR 


6,BINC0*l 




SFR 


7,&INC0+2 




SFR 


4,BINC0+3 




LFR 


5,8INCDl 




LFR 


6»BINC02 




CAM 


2, MB 




CAM 


8, MO 




CAM 


12,M6+M5*18 




J2M 


12,BINIT 


BXNXI 


LFR 


7,8INST0 




LFR 


§,RELOC 




CAM 


OrMT 




LFR 


S.RELOCT 




CRM 


6*7 




ANN 


6j3 




A DM 


15 




EOM 


6,3 




JPM 


6.BIN2 




CAM 


lao 




CALL 


S8ERR 




SBM 


15,3 


BIN2 


ANN 


8,4096 




ADM 


15 



NOT LOCATION 



DECIMAL LOCATION 



LOCATION 



WORD COUNT ON CARD 
WORD 

INITIAL ENTRY FOR CARD 



BUFFER ADDRESS 



RELOC BITS 
NONERASEABLE 

SIGN BIT 



P3 


170 


P3 


171 


P3 


172 


P3 


173 


P3 


174 


P3 


175 


P3 


176 


P3 


177 


P3 


178 


P3 


179 


P3 


180 


P3 


181 


P3 


182 


P3 


183 


P3 


184 


P3 


185 


P3 


186 


P3 


187 


P3 


188 


P3 


189 


P3 


190 


P3 


191 


P3 


192 


P3 


193 


P3 


194 


P3 


195 


P3 


196 


P3 


197 


P3 


198 


P3 


199 


P3 


200 


P3 


201 


P3 


202 


P3 


203 



w 


hd CQ O 


fD 


p3 rD p3 


<! 


ciq o c+ 


H- 


fD c+ fD 


M 


.. p. .. 


H- 


O 


o 


p_ 


p 






OAUO ^ 




o (jo no 




i-b • —J 




H"--- 




vjn O 0\ 




o -p- 



CRM 15»10 

CJU 988IH3 

CSH 9,4 

CRH 15,2 

CJU I0,BIN30 

SFR 7,«ll*«0+6 

LFR TtBtAMKS 

CJU 11»BIN4 

CSM 10,2 

CSH 11,4 

TRA BiM3 

BIN4 CSH 10,4 

Ta4 B1N3 

BIM30 CAM 12.M13 

CAM 13,M14 

CAM 14,H15 

CAM 15 

BIN3 SFR 7,BINST0 

LFR 5,BINC0l 

LFR 7,BIMST0+1 

CAM 12,N13 

CAM 13,M14 

CAM 14,M15 

CAM 15, M8 

SFR 6,BINCD2 

CJU 5,8INENO 

CSM 5,4 

SFR 7,M0*M6+20 

LFR 7, BLANKS 

ADM 2a 

CJU 6,BINEN0 

CSM 6,14 

LFR 7,MO+2 

LFR 6,BlNST0+2 



STORE CONSTRUCTED WORD 



SHIFT 12 BITS 



INCREMENT WORD COUNT ON CARD 



COLUMNS 9-12 ON CARD 



P3 


204 


P3 


205 


P3 


206 


P3 


207 


P3 


208 


P3 


209 


P3 


210 


P3 


211 


P3 


212 


P3 


213 


P3 


214 


P3 


215 


P3 


216 


P3 


217 


P3 


218 


P3 


219 


P3 


220 


P3 


221 


P3 


222 


P3 


223 


P3 


224 


P3 


225 


P3 


226 


P3 


227 


P3 


228 


P3 


229 


P3 


230 


P3 


231 


P3 


232 


P3 


233 


P3 


234 


P3 


235 


P3 


236 


P3 


237 



td 


ixl CO o 


(D 


PD (D SB 


<! 


OQ n c+ 


H- 


CD d- (D 


CO 


.. H- .. 


H- 


O 


o 





p 






-J (^ -J 




o u) ro 




H) o -<1 




H"'^-^ 




un O ON 




o -p- 



CAH 12.M2+M8 

C4M 13, H9 

CAM 2 

SFR 7,HO+2 

LFR 7, BLANKS 

JPM 4,B1M5 

LFR 6«BINAR 

LDM ll.RELOC 

CAM 9, Mil 

SFR 6, BIHAR 

CALL SYSIO 

BINAR OECQ WRITE, BIN8UF, 0,0 

BINS LFR 6,ReL0C 

ADM 11,20 

CJU T.BINEA 

ANN 4,2048 

CJS 10,0 

TRA MRR06R 

CAM 3 

JZM 3eBIN5A 

CALL SYSAUX 

OECQ WRITE, BIHBUF, 0,1031 

CALL SYSAUX 

OECQ WAIT,0rO»1031 

BIN5A CSM 7,12 

CAM ll,8INBUF 

CSM 3,256 

CAO BLANKS 

FLO 

SAM M3+256*BIN8UF 

CJF 3,0 

BINEA SFR 6,REL0C 

BINEND SFR 7,BIHST0+1 

SFR 5,BING0l 



CLEAR WORD COUNT OH CARD 



NO PUNCHED CARDS 



OUTPUT BINARY CARD 
INCREMENT CARD LOCATION 



GO BIT 



NO OUTPUT OF BINARY PROGRAM ONTO TAPE 
BINARY TO TAPE 7 



P3 


238 


P3 


239 


P3 


240 


P3 


241 


P3 


242 


P3 


243 


P3 


244 


P3 


245 


P3 


246 


P3 


247 


P3 


248 


P3 


249 


P3 


250 


P3 


251 


P3 


252 


P3 


253 


P3 


254 


P3 


255 


P3 


256 


P3 


257 


P3 


258 


P3 


259 


P3 


260 


P3 


261 


P3 


262 


P3 


263 


P3 


264 


P3 


265 


P3 


266 


P3 


267 


P3 


268 


P3 


269 


P3 


270 


P3 


271 



w 


hd w W 


(D 


p) fD fD 


< 


(n n c*- 


H- 


0) c+ fO 


m 


.. p. .. 


H- 


o 


O 





3 






CDOO -J 




o uo ro 




Hj • -J 




H--^ 




v-n o o\ 




O 4=- 





LFR 


6,BINC02 




CAM 


8,H2 




SFR 


6.BINC02 




LFR 


5, BINCO 




LFR 


6,BINCD-H 




LFR 


7,BINCD+2 




LFR 


4,8INC0+3 




JLH 


M3 


BINIT 


CAM 


15 




CAM 


12,5 




CAM 


13 




CAM 


14 




LFR 


5, RELOC 




SFR 


79M7 




LFR 


5,CW0R 




CAM 


13. MT 




JPM 


13, BINITI 




ORM 


12.16 


BINITI 


ANM 


12.16 




SFR 


7,BINST0+2 




TRA 


BINIl 


BINCO 


BSS 


5 


RELOCT 


BSS 


1 


RELOC 


OECQ 


»,,BINBUF 


BINC02 


OECQ 


0.=4,-=2.-4 


BINCDl 


OECQ 


-19=4b-14»-12 


BINSTO 


BSS 


3 


SB0CT5 


LFR 


79C«PR 




LFR 


4. SBOCTC 




LFR 


6.CW0R 




JLH 


M3 




FIL 




SBOCTC 


BSS 


3 


CMPR 


DECQ 


O.OslcO 



INITIAL LOCATON 
SIGN BIT OF LOCATION 



— .GROUP OF 3» Q-WORD,WORD 
CARD-TAPE CONTROL , Q-WORO, WORD, CARD 



P3 


272 


P3 


273 


P3 


274 


P3 


275 


P3 


276 


P3 


277 


P3 


27B 


P3 


279 


P3 


280 


P3 


281 


P3 


282 


P3 


283 


P3 


284 


P3 


285 


P3 


286 


P3 


287 


P3 


288 


P3 


289 


P3 


290 


P3 


291 
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SFR 7,S8ERR2+l 

LFR TtCWPR 

LDM 15,2,0 

CAM 0,M13 

ATN 15,1, 

CAM 12,-256 

JNM 12,SBERR1 

CAM 1,514 

TRA ERROR 

SBERRl SFR 4,M15 

SFR 7,0 

LFR 4,PRBUF*1 

CAM 0,2816 

SFR 4,PR8UF*1 

LFR 4,S8ERR2 

LFR 7,SBERR2*1 

JLH M3 

SBERR2 BSS 2 

OECVT CAO Ml+4096. 

SUB 4096. 

SFR 4,GDECV1 

SFR 5,G0ECVl+l 

AOO 10,3,2048 

DIV 100. 

CAM 7 

CAM 4 

OiV 100. 

CSM 1,3 

CSM 2,1 

G0ECV2 SIA 

SUB MO. 



CARD CPUNT 



TOO MANY ERRORS 



OCTAL TO DECIMAL CONVERSION 
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JUM 

CAM 
GDECV3 CJZ 
GAM 
CAH 
CAM 
GDECV4 «PY 
TRA 
G0ECV5 CRM 
AOH 
CSH 
CJU 
CAD 
LFR 
LFR 
JLH 
GOECVl 8SS 
PSEUOO CALL 
ANN 
CAM 
CRM 
CSM 
JZM 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 



7.G0ECV3 

Q.G0ECV3 

0,10 

2,6DECV5 

5,H6 

6jM7 

7, HO 

10. 

GDECV2 

7,7 

7, MO 

2 2 

l*GDECV4 

F5 

4,G0ECVl 

S.GOECVU-l 

M3 

2 

INPUT 

4,7936 

3 

3,8 

3 

3,FIL 

3,FLD 

3,BESS1 

3,8ESS2 

3, ORG 

3,C0MHNl 

3, GOT 

3, ERASE 

3,ASSIGN 

3, CALL 

3,0ECQ 



EXTRACT BITS 
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CJZ 
CJZ 
ADM 
CJZ 
CJZ 
CJU 

COWINl CALL 
TRA 

ERASE CALL 
TRA 

CALL CALL 
LFR 
ANN 
ATN 
CAM 
CAM 
LFR 
ANN 
CAM 
SFR 
CALL 
CALL 
TRA 

SBFIL SFR 
LFR 
A DM 
CAM 
JZM 
CAM 
CALL 
TRA 

BF2 LFR 
JLH 

SBFILl BSS 



3»I0 

3,0CTQ 

3,1 

3,0ECHR 

3,DECHR 

3, WRONG 

INPUT 

REAORF 

INPUT 

REAORF 

INPUT 

4,M4 

2,3 

8,3,3980 



1,M3 

S.RELOC 

2,384 

6 

5,REL0C 

OUT 2 

SBFIL 

REAORF 

4, SBFILl 

04,E,CMDR 

02,3,4 

00,, 

00,0, BF2 

0,2,1473 

OUT I 

2, SBFIL 

4, SBFILl 
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DECHR 



OCTQ 
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CAM 


0,2,1473 




J SB 


03,0f0UTl 
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LFR 


06,2,CM0R 




ANM 


04,3,3 
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AOM 


10,2,4 
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JNM 
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S8M 
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J DC 
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CAM 
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ADM 


10,, 
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SBH 
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ATN 
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CALL 


QUTl 




CJU 


02,0,DC1 




J DC 
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S8FIL 


DECQ 


ANM 


4.3,248 




CAM 
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02,3,3 




CSH 
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FIL 


03,0,S8C0MP 




ATN 


13,, 
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LFR 


6,REL0C 




CAM 


10,M9 




CAM 
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SFR 


6,REL0CT 




CAN 


10 




SFR 


6,REL0C 




CALL 


QUTl 




CJZ 
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JSB 


03,0, INPUT 




FIL 
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04,3,15 




AOM 
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J SB 
FIL 
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CAM 
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LASS 


CAM 
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JSB 
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READRF 
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BSS 
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SFR 


5,BEST0 






SFN 
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ORG 
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SFR 


4,BESSCt2 






CALL 
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CALL 


S8C0MP 






CAM 


15, M6 






TRA 
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LFR 
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08«, 
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LFR 06f2,CC2 

CAM 06f> 

CAM 07,, 

ATH 11,1, 

SFR 05,, 

CAH 3,2,G03 

SFR 4,2,C0H«0N-1 

JOC 00,0, NAME 

GOT SFR 4,BESSC+2 

CALL SBFIL 

LFR 4,BIMBUF+240 

CAM 0,4096 

SFR 4,BIM8UF4-240 

CSH 6,1 

LFR 6,CWDR 

GO ANM 04,3,3 

CAM 8 

ANN 05,3,7 

CAM 00,2.-2 

JZM 00,Q,G02 

SFR 5,8ESSC+2 

JSB 03,0,SBCOMP 
FIL 

G03 CRM 8,2 

CALL SBPR 

ANN 8,1 

ADM 13 

LFR 5, BLANKS 

CRN 8,4 

CAM 4 

SFR 6,BESSCtl 

LFR 6,REL0C 

LFR 4,BINST0+2 

ANH 0,31 
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ORH 


0,M4*1024 


Q—WORO AND SET GO BIT 




CAM 
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CAH 


7,M13 


SO ADDRESS 




SFR 


5,Mll*l 






JPH 


13, BESSO 
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0,512 


CARRY FROM ADDRESS OF 


BESSO 


SFR 


4,BINST0+2 






LFR 
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CAN 


15, M6 




BESSA 


SFR 
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CAM 
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11, BESSO 
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BESSOl CJU 


15,BEXIT 






P3 


578 


BEGOT LFR 


6.BIHC01 






P3 


579 


A0« 
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P3 


580 


Jin 
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LAST BINARY BLOCK ALREADY WRITTEN 


P3 


581 


A MM 


8*2048 
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JZM 


8*EN0P2 


NO OUTPUT 


OF BINARY TAPE 


P3 
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CALL 


SYSAUX 
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584 


DECQ 
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1031 
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SYSAUX 
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CAM 
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CAH 
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ATN 


15,, 
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LFR 


06,. 






P3 
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SWAPRl ATN 


12,1, 
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599 


LFR 


05., 






P3 


600 


SFN 


08,, 






P3 


601 


ATN 


04,, 






P3 


602 


CAM 


02,, 






P3 


603 


JPM 


02,0,SUAPJ14 
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P3 


604 


CAD 


05,3, 






P3 


605 


ATN 


12,2,-1 






P3 


606 


SFR 


06,, 






P3 


607 


SAM 


06,3, 
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608 
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CJU 

SMAPR3 LFR 
ORH 
TRA 

8 EGO CJU 
LFR 
CAN 
CSM 

BEGOl CALL 
CJU 
LFR 
ANN 
A DM 
SFR 
SB« 
CAM 
CSM 
TRA 

8EXIT LFR 
JNH 
CAN 
LFR 
JPM 
AON 

BEXITA SFR 
LFR 
SFR 
SFR 
SFR 
SFR 
LFR 
CAM 
CALL 
LFR 



14,0,SWAPR2 

7, BLANKS 

15,1024 

SYSTEM 

IS.BEXIT 
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BINARY 

ll.BEGOl 

6,BINST0+2 

4,896 

8,1024 
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7,13 

BOSSF 

6,CW0R 

15,BEXIT1 

2, Nil 

5,BEST0 

6, BEXITA 

ll,M13 

I.BESTO 

7, STARS 

7,PRBUF*3 

7,PRBUFi-4 

7,PR8UF<-5 

7,PRBUF*6 

7,CWPR 

5 

SBOCTL 

7,8EST0 
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GO BIT 
RESTORE «15 
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BEXITl 
BEXIT2 



BESTO 
STARS 
RCARD 
RREf 



010 



READRF 



MACENO 



CAM II, M2 

ATN Hll 

CAM ll,«13 

SFR 6,CilOR 

LFR 5,aESSC 

LFR 6,BESSC+l 

LFR 4,BESSC*2 

TRA READRF 

BSS 1 

OCTQ 5454,5454,5454,5454 

CALL SBRD 

CALL INPUT 

CAM 5,M4 

JPM 5,010 

CALL INPUT 

CRN 5,4 

CSM 3 

ORH 3,-4 17774 

CJ2 3, ORDER 

CJZ 3,PSEUD0 

CRN 5,6 

CSM 3,1 

ORM 3,-16 17740 

CJZ 3,MAC8EG 

CJZ 3, MACENO 

CALL S8P8 

LFR 6,REL0C 

CAM 9 

SFR 6,REL0C 

TRA RCARD 

LFR 7»CMPR 

ANM 14,4095 

SFR 7,CWPR 

TRA READRF 



MAME CHECK 



P3 


646 


P3 


647 


P3 


648 


P3 


649 


P3 


650 


P3 


651 


P3 
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P3 


653 


P3 
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P3 


655 


P3 
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P3 


657 


P3 


658 


P3 


659 


P3 
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P3 
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P3 
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P3 
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P3 
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P3 
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P3 
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P3 
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P3 
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P3 
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P3 
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MACBEG LFR 
ORM 
SFR 
TRA 

ORDER CALL 
CAM 
ANM 
CAN 
CRM 
SFR 
ANM 
CAM 
J2H 
ATM 
LFR 
ATN 
CAM 
ANN 
CAM 
JUM 
ANM 
CAM 
JZM 
SBM 
JZM 
AOM 
J2M 
CAM 

TTl JSB 
FIL 
ANM 
AOM 
SFR 

TSMTAG ANM 



7,CNPR 

14,4096 

7,CIIPR 

RREF 

INPUT 

12, K4 

5,3,960 

14,, 

14,2,10 

07, 2, COMMONS 2 

5,3,1024 

03,. 

03,0, TSM 

04,, 

04,, 

03,, 

12,, 

02,3,16 

09,, 

09,0,UN0EFT 

02,3,12 

09,, 

09,Q,L0RST 

09,2,12 

09,Q,L0RST 

09,2,4 
09,0, TTl 
09,2,1 
03,08lNPUT 

4,3,8131 
12,, 

07,2,C0MM0N+2 
5,3,768 



EXTRACT SUBTYPE 

OCT2000 
TAG BIT OFF 
NAME TABLE LOOKUP 
VALUE OF NAME 

TAG NOT DEFINED 

SYMBOL 

LABEL 

M9=0 IF MODIFER 



ORDER BYTE 

STORE ORDER 

CHECK LEGAL TAG USE 



P3 


680 


P3 


681 
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CAM 03,, 

S8M 3,2,256 

JZM 03,0,TSLTAG 

ANM 5,3,960 

CAH 03,, 

SBM 3,2,960 

JZH 03,0,TT2 

AOM 3,960 

JZ« 3,TT3 

TT4 JZM 9,TSM 

CAW 1,4 

CALL S8E8R 

TRA TSH 

TT3 ANN 4,8128 

CAH 3,-4544 

JUM 3,TT4 

JZM 9,TT5 

TRA TSM 

TT5 CAM 1,3 

CALL SBERR 

TRA TSM 

TT2 JUM 09,0,SFRLFR 

CAM 01,2,5 

JS8 03,0, SBERR 

Fit 

CHAN63 CAM 14,2,1536 

SFR 07,2,C0MM0N*2 

JOC 00,0, TSM 

TSLTAG JZM 09,0,AM0DIL 

ANM 5,3,64 

CAM 03, , 

JZM 03,0,0UTSHO 

ANM 5,3»128 

CAM 03, 8 



0CT400 

OCT1700 

0CT1700 



OCT3000 

OCT 100 
0CT200 
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714 


P3 


715 


P3 


716 
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717 
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726 


P3 
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P3 
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734 
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740 
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745 


P3 
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SFRLFR 



TAGFl 



SMI 

AMODIL 
OUTSHO 



UNOEFT 
LQRST 



4m 

ANH 

CAM 

Jin 

ANH 
CAM 
JUM 
CAM 
J SB 
FIL 
A»M 
CAM 
JUM 
CAM 
JSB 
FIL 
ANM 
CAM 
JUM 
J DC 
CAM 
JSB 
FIL 
ATN 
CAM 
JSB 
FIL 
J DC 
ATN 
CAM 
JSB 
FIL 
JSB 
FIL 



03,0, TAGFl 

4,3,2048 

03,, 

03,0, TAGFl 

12,3,60 

03,, 

03,0, TAGFl 

01,2,2 

03,0,SBERR 

12,3,60 
03,2,-4 
03,0, SMI 
01,2,3 
03,0,SBERR 

5,3,768 

3,2,7936 

03,0,CHANG3 

00,0, OUTSHO 

01,2,5 

03,0,SBERR 



0CT4000 



12,, 

00,, 
03,0,0UT1 

00,0,REA0RF 
08i3,2 
01,2,6 
03,0,SBERR 

03,0, INPUT 



0CT1400 
OCT 17400 
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ATN 


04,, 


CAM 


12., 


AHH 


5,3,768 


CAN 


3,2,7936 


JUM 


03,0,CHANG3 


ATN 


04,, 


CAM 


00,, 


JSB 


03,0, OUTl 


FIL 




J DC 


OO.O.REAORF 


SFR 


Q7,2,CO«MON+2 


TSM AMM 


5,3,768 


CAM 


03,, 


JZM 


03,0,TSL 


TSMl ANN 


5,8 


CAM 


03,, 


JZM 


03,Q,AOCOMP 


TSM2 CALL 


INPUT 


FIL 




AMM 


05,3,7 


CAM 


03,, 


JZM 


03,0,INTE&1 


SBM 


03,2,3 


ATN 
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04,, 


LFR 


6,REL0C 


ANN 
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CAM 
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SFR 
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ATN 
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CAM 
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ANM 


02,3,28 


CAM 


03,, 


JZM 


03,0,INTEG1 



0eT400 
OCT17400 



0CT400 



NOT LAST BYTE IN ADDRESS 



FETCH NAME AS ADDRESS 



SET RELOC BIT 
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INSF3 



ERORl 



EQSYMl 



CRH 


03.2,2 




SBn 


03,2,4 




JPH 


03,0,EQSYM1 




CJI 
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LABEL 


CJ2 


03,0,M00IFl 
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5,3,192 


0CT300 


CAM 


15,, 
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15,0, ERORl 
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5,3,64 
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CAM 
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15,0,INSF3 




SBM 


04,3,4 




CAM 
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CAM 
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FIL 






ANH 
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0CT17700 


ANM 


4,3,60 
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12 




CAM 
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OUTl 




FIL 






JOC 
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CAM 


1,2,4 




CALL 


SBERR 




FIL 






ATM 


12 




CAM 
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JSB 
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JOC 


080,REA0RF 




CAM 


12 
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JDC 090,013 

700IFI ATN StStl 

INTEGl CAM 12,, 

ATN 4 

013 CAM 13 
CSM 14,2,4 
CAM 10 

CAM ll,2,HLIST 

JOC 00,0, ACE 

TSL ANM 5,3,192 

CAM 03,, 

JUM 03,0,014 

ATN 12 

CAM 00,, 

ANM 12,8128 

SBM 12,6080 

JIM 12, SEX 

ADM 12,256 

JZM 12,SIA 

TSLl CALL OUTl 

JDC OQ,0,READRF 

SIA CAM 12,3 

SEX CRN 0,2 

CAM 3 

ANN 3,3 

ADM 12,8188 

CJZ 12, TSLl 

CAM 1,12 

CALL S8ERR 

TRA TSLl 

014 ANM 5,3,128 
CAM 03,, 
JUM 03,0,015 
ATN 12,, 
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OCT200 
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CAH 


00, * 


J SB 


03,0, INPUT 


FIL 




ATN 


04,, 


CAM 


01,, 


J SB 


03,0,OUT2 


FIL 




JOC 


OO.O.REAORF 


mn 


05,3,8 


cm 


15,, 


JZH 


15,0,020 


ATN 


04,, 


CAM 


0,2,1088 


J SB 


03,0,OUTl 


FIL 




ATN 


12,, 


CAM 


00,, 


CAM 


01,, 


J SB 


03,0,0UT2 


FIL 




JOC 


OO.O.REAORF 


CAM 


06,, 


CAM 


07,, 


LFR 


06.2,CC2 


LFR 


0T,2,CC3 


JOC 


00,0,LATMOO 


AMM 


05,3,2 


CAM 
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JZM 


03,0,ADC0MP 


JSB 


03,0, INPUT 
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ANN 
CAH 
SFR 
ATN 
CAM 
ANM 
CAM 
JZM 
SBM 
JZM 
SBM 
JZM 
CAM 
J DC 

LABEL 3 ANM 
CAM 
JUM 
ANM 
ANM 
A DM 
ANM 
ANM 
AOM 
CRM 
ANM 
ADM 
SFR 

TCHR8 ANM 
CAM 
JZM 
ATN 
CAM 
ATN 
CAM 
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15,2,4 

15,0,LABEL3 

04,, 

00,0,TCHR8 

5,3,64 

03,, 

03,0,TCHR8 

02,2,3 

12,3,3 

02, • 

12,2,8188 

02,3,3 

12,* 

02,2,2 

02,3,1 

04,, 

07,2,C0MMON+2 

05,3.8 
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03,0,016 
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CAM 
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SFR 
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LEVEL 


SFN 


04,, 






CS« 


15,2,2 






JNH 


15,0,03 






AOM 


06,2,2 




D3 


ANH 


14,3,8190 


0CT17776 
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15,, 
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0CT17774 
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3,4 NICAP Pass IV- -Error and Name Table Listing 

Input to Pass IV 

The BCD and binary versions of the name table are left on the 
drum and in core by Passes I and II respectively. The error table is in core. 

Output from Pass IV 

A listing of the error list and the name table is made using SYSIj?5„ 
F7 is saved as a control word, where bit 2 of MI5 is a one if there are no 
fatal errors and the program is to be executed. Exit is via SYSTEM, 

Pass IV lists the errors and the name table for the assembled program. 
It lists the errors, three to a line, testing first the decimal card number, 
then the code translation and finally it notes, by include "-F" after the error 
type if the error is considered fatal. 

It then outputs the name table, five entries per line, first listing 
the BCD name, then its octal address, followed by the quarter-word address, 
the decimal equivalent of the address, and a final mnemonic which indicates how 
the name is relocated (if at all). The code is as follows: 

P program relocatable 
C common relocatable 
E erasable relocation 

no relocation, address absolute 

Since F0-F9 and MO-MI5 are always defined by the assembler, these will be 
included in every listing. 

Subroutines of Pass IV 

SBOCTL 

Converts the quarter word in Ml to BCD octal, link in M3, final 
result is in F7. 
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3.5 ILLIAC II— FORTRAN II 

This program is a three-pass compiler, the last two passes of which 
are identical to the last two passes of the NICAP Assembler and are described 
there. The first pass will be referred to as the FORTRAN pass. Its input is 
the source language on card images which are read from magnetic tape or else- 
where via SYSIj6 by the compiler, and its object is the intermediate language 
(IL) of the Assembler and the appropriate name tables for the assembler. The 
name tables are left in memory and the intermediate language is left on the 
drum at the completion of the FORTRAN pass. As with the assembler, a BCD name 
table is also left on the drum. In fact, the output of the FORTRM' pass is 
necessarily identical to the output of the first pass of the Assembler, except 
that during the FORTRAN pass a listing of the input FORTRAN program, together 
with their sequential statement numbers, is prepared. This is necessary because 
a listing is not normally prepared during the last pass of the Assembler on a 
FORTRAN program. If it is prepared, it is then a listing in machine language 
rather than in FORTRAN language. The reader is referred to Part Z, Section 1, 
for a detailed description of the output. 

The FORTRAN program is split into five sections. The first four of 
these sections constitute the FORTRAN pass, the last section, most of which 
does not coexist in memory with the first four sections, prepares and digests 
the various tables, the common and equivalent lists, and does some modifications 
to the name table prior to the Assembly passes. Of the first four sections. 
Part I is a statement recognizer. Part 2 is the program which handles all 
type statements and generates appropriate intermediate language. Part 3 deals 
with control transfers. Part U deals with input/ output type statements. 
During the execution of the first four parts of the program four major tables 
and one subsidiary table are constructed. Any time a new variable name or 
statement number is encountered in the source language an entry must be made 
in these tables. An entry is also made in the case of a new constant that is 
greater than or equal to kO^G, and additional entries must be made in the case 
of Implied DO loops in the input/ output statements and in, the case of transfers 
to the statement number which closes a DO loop. These four tables are the 
following: 
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1) Constant TaTjle CONST 

Constants are entered in this table unless they are less than or 
equal to 4095 « If the same constant is used twice, only one entry has to be 
made. Constants less than 4095 can be given directly in the address of an 
instruction. 

2) The variable table VARIAB 

Variables which are not dimensioned and which are not functions are 
placed in this table. An indication is given in this table whether the name 
is fixed or floating-point, under control of a DO LOOP, etc, 

3) The label table LABEL 

This table contains all the statement numbers used in the program. 
Also, on those occasions that an internal label is needed for a transfer, an 
entry of the statement number zero is made. Since zero is an illegal state- 
ment number, it will never interfere with an outside label. When a transfer 
is made to a statement number which closes a DO loop, or several DO loops are 
closed on the same statement number, multiple entries must be made. Except 
under these conditions no two entries in any of the tables correspond to the 
same name or statement number. 

h) The dimension-function table DIMEN 

Any variable which appears in a dimension statement or is defined by 
an Arithmetic function statement or which is not defined but appears with a 
left parenthesis immediately following is entered in the dimension-function 
table. A bit in this table indicates whether it is assumed to be a dimensioned 
variable or a function name. Another bit indicates whether it is a fixed or 
a floating-point name. A secondary table is chained to each entry of this 
table. The secondary table contains additional information about the dimen- 
sioned variable or function. For example, in the case of a dimensioned variable 
the number of dimensions and the range of those dimensions must..be specified. 
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In the case of a function a list of the calling parameters is kept for checking 
purposes. The format of the various tahles is shown in Fig. 3.5ol= 

Two subroutines handle all of the tahle manipulation work. The 
first, GEWTAB will enter a name in the table. This does not search for a 
previous entry of that name. The second, GTABLE searches the table for a name. 
It does not enter the name if it is not found. Although the four tables are 
distinct, they are not allocated unique memory locations. The memory available 
for tables is divided into 256 word blocks. One of these blocks is assigned 
initially to each table. When a table is full it is chained to another 256 word 
block from the available storage. Table space will be exhausted when all such 
free blocks have been used and one of the tables requires another one. When 
this happens at most 768 words of memory are not being utilized. It is impos- 
sible to give in a convenient form a detailed formulation of when the tables 
will be exhausted. 

Two other subroutines are used by virtually all pieces of the Fortran 
pass. They are Sj25UT and GERROR. The former takes the bytes of intermediate 
language in the CjZiUT buffer where they are packed one per word in the left-hand 
quarters and packs them four per word into a 256-word drum buffer. Whenever 
this buffer is full it is written on the drum for later use by the NICAP passes. 
GERROR takes the error code in Ml and stores it in the Error, common, equivalence 
list for processing iramedia,tely after the Fortran pass. 

Subroutines used by all sections 
GTABLE 

GTABLE searches the appropriate table looking for the occurrence of 
the name which is held in F?. If the name is present, then its address, i.e., 
its internal representation, is in M2 and MO is positive (zero), otherwise MO 
is negative (UO96) at exit. 

The name table desired is specified by Ml at entry. Ml contains the 
address of a pair of words in memory which are used in the table search. The 
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51 



Floating-Point Constant 



Figure 3- 5 .la. Constant Table Format 



2356 1213 kk ^5 



51 



I 1X1 I I I |0|ll I Base 36 Conversion of Hame | 










implies initial I, J, K, L, M or N (bit 12) 

implies an initial X (bit 9) 

1 implies the variable has appeared in a Cj6m1^N 
statement (bit 8) 

1 implies the variable has appeared in an 
EQUIVALENCE statement (bit ?) 

1 implies the variable has appeared in more 
than one EQUIVAI.ENCE statement (bit 6) 

Use bit. Used in the l/O list scan (section 3- 5-^) 
to indicate that a fixed-point variable has been 
changed by an input statement (bit 2). 

1 implies that the variable is used as the 
controlled variable in the currently active DjD 
(bit 1) 

implies that the variable is used as the 
controlled variable or as a range variable of 
a Djz5 which is still open 



Figure 3- 5 -lb. Variable Table 
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12 13 



23 27^30 



kh k^ 31 



M IStabemmt^Humberl 



L Type bits (see description 
in section 3«5<'3) 

— Chain to DjZ5 which was active 
when this label was entered 

— Variable under DjZ5 control at 
time of entry 



Figure 3 „ 5.1c. Label Table 



01 



11J213 



i Base 36 Conversion of Name 



kk k^ 51 







L 



implies fixed point 

11-bit chain address to dimension -list 

1 implies dimensioned variable, 
implies a function name. 



Figure 3„ 5 old. DIMERSI^W Table Format 



'*^If the statement number is 0, It is an internal name used by one of the 
generators. Since is an illegal statement number, this cannot cause 
confusion. 
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13 



26 



ii_ 



39^1 



d-, , d and d_ are the 
three dimension (< kO^'^) 



50 51 



'-Dimensionality 
(1, 2 or 3) 



Appears in more 
than one 
EQUIVALENCE 

Appears in any 
EQUIVALENCE 

Appears in 
COMMON 



Figure 3.5.1e. Dimension List Entry for Dimensioned Variable 



1 



Lo 



implies external function 



Figure 3. 5. If. Dimension List Variable for Function 
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SCHEMATIC FLOW OF THE FORTRAN PASS 



( START j 



ASSEMBLE ITCi 
10 CARDS OF A 
STATTEMEMT.SKIP- 
P1I0& COMMEMT 
CKRDS 




CHECK TkBLES 
F&R DCi CLCiSURtS 
E.TC. 



SCA,M STCTEMEVST 
TD EKiDTCi 
DETERMIWE 
TYPE 



RETURKl TC START 

6F STATE MENiT 

SKIP APPRbFtWE 

MUMBER &FI«niW 

CH^R6,CTERS 



F^RMfeT 
1 



FORMAT 
GENERKtaR 



TRt\.NSLKVE 



^!mdm 



COMPILE 
DO CLOSURE 




EUD OF BUFFE R 

OF STATEMEhiT_ _ _^_ 



I 1 

I 

j TO &EMERWOR 



EUD 



PROCEED TO 
I^EXT PA9S 



FREFIL 
(SUBRCiliTlttE CAa) 
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first of this pair is addressed by Ml and contains the address of the first 
■block of the table in the first quarter. The second word of the pair contains 
a mask which is 1 where name bits in F7 are significant and elsewhere. 
(Note that the exponent bits are always used in the comparison;, and should 
therefore be in all cases except for the constant table.) The masks are 



DIMEN AKD VARIABLE 

LABEL 

CONSTANT 



0, 17777, 17777, 17600 

0, 0, 00777, 17600 

17777, 17777, 17777, 17777 



The format of the blocks of storage is: 



First Word of Block a 



L 



First word used in 
block = a + 256 - N 

-N - 1 where W is the 
number of entries in 
this block (< 255) 

Chain address to first 
word of next block if 
nonzero. Last block 
in chain if zero. 



The next 255 words are used in reverse order, that is, location a + 255 
receives the first entry, a + 25k the second, etc. Table searching is done 
with increasing addresses so that the search is in the reverse order of entry. 



GEIilTAB 

GENTAB is a companion program to GTABLE which enters the constants 
of F7 in the next available table position. If the current block is full, 
then the word GMAST is consulted. This has the format: 
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GMAST 1^ 



*- Chain address to a free "block 1^0, 
means end of chain 



Each free block in memory is chained to the next free blocks The last block 
contains in the chain address position^ If another free block is available, 
it is added to the beginning of the chain „ 



GERROR 

Each entry to this program places the 13-bit number In Ml in the 
error table along with the current sequential statement number. These errors 
are listed after the Fortran Pass has been completed. Details of the program 
are given in section 3.5°5» 



This program takes the left -most quarter words of locations CJOUT to 
Vh-1 inclusive and packs them into a buffer which is placed on the drum eact. 
time it is full, . Vh is restored to the address Cj^UT before exit. 
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(gtablo- 



MA.sk to F2. 
EXTRACT MAMEl 
FROM F7 
TO F3 



LOAD MeXT 
BLOCK CONTROL 



LOAD KiCXT 
EK^TRY AMD 
EXTRACT MA me: 



I 



SUBTRACT 
F3 




h0=40<9^ 



EXIT 



Ml^ADDReSS 
OF EMTRY 
MO =0 



:j 
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GET FIRST 
BL6CK COKiTRCkL 




Ki6. 



remove: BL6tK 
FR5M GM^ST 
CHMKi:txDD TO 
TABLET 



A.DD MEW 
EMTRY FR6H 
F7. RESTORE 
COhOTROL WORD 



I 
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SET C6UMT 
lOF OU^RTERS^U\i 
COUMT ST^RT 
ADDRESS 



LOAD BUFFER 
COMTR6L WORD 




ST6RE W6RD AiOD 
Il^CRE^.*=.E ADDRESS 



n 



ADD MEXT 
QUARTER AMD 
SWIFT LEFTi-B 
BITS 



I 



LOAD CURRENT 
NNORD 





ETXIT 



STORE BUFFER 

AUD XICiCREASE: 

ADDRESS OF 

BUFFER. 

WAIT 



f 



Programmed by: L„.Fosdlck 
T. Wang 
C. W„ Gear 



Provisional Description by: C. W. Gear 
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3 o 5 " 1 The Statement Recognizer 

The major subroutines used by the Statement Recognizer are GTABLE and 
GEITAB mentioned above and GREAD and GRBACKo These latter subroutines handle 
the source card images. GREAD reads in the next statement (occupying between one 
and ten cards) and lists the statement with a sequential statement number 
assigned by the program. In doing this it lists comment cards and skips them. 
They are not sequentially numbered. GREAD also examines the first five columns 
of a statement for Boolean, double-precision, F cards and statement numbers. 
B and D cards cause a switch to be set in memory for interrogation by the 
function generators, F cards cause an immediate exit to the statement recognizer, 
while statement numbers are converted into binary in the accumulator „ After 
control is returned to the statement recognizer by GREAD following the first 
entry, subsequent entries to GREAD cause the characters of a statement to be 
given to the calling program one hy one until the last, at which time an 
indicator is set. Further use of GREAD advances the program to the next state- 
ment whereas GRBACK will reset the GREAD subroutine so that it returns to 
column 6 of the first card of the current statement. 

When the statement recognizer is told that there is a statement 
number in the first five columns, it makes an entry to section 3 of the Fort^ran 
program which deals with control transfers. This is described in section 3.5.3. 
The purpose of this entry is to enable the program to enter the number in the 
label table provided that it does not already exist there. In the case of no 
statement number or after return from section 3 of the program in the case of 
a label, the statement Recognizer scans the statement from beginning to end and 
determines the type of statement according to simple rules given in Table 3.5„1.1„ 
In making this determinination it examines only sufficient information to 
determine that only one possibility for the statement types remains, (it may 
well happen that when the generator concerned with this particular statement 
is brought into play it will find that the statement is nonsense.) 

When the Statement Recognizer has scanned to the end of the statement, 
it calls the program GRBACK which primes the program GREAD once again so that 
it is now sitting on column 6 of the first card of the statement. The Statement 
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Recognizer now scans the statement for a second time, first removing a number 
of characters depending on the statement type. The statement is then trans- 
lated into atoms. An atom is a single unit in the sense of a name, number, or 
operator. There is one exception. The statement FORMAT allows the generator 
to converse directly with the GREAD program. The Statement Recognizer removes 
the characters up to the ( in FORMAT( and then branches to the generator. 

As the Statement Recognizer translates a statement into atoms it 
places the atoms, one per word, in the statement buffer. The coding is shown 
in Table 3-5 -I'l. In order to conserve memory space this statement buffer is 
limited to a set of words which may not be sufficient to contain the entire 
statement. Therefore, two additional atoms are introduced, called "End of 
Buffer" and "End of Statement." One and only one of these atoms will appear 
in the statement buffer. If the statement buffer is filled before the end of 
the statement is encountered the "End of Buffer" atom is inserted. Otherwise 
the "End of Statement" atom is inserted. 

The Statement Recognizer then calls the appropriate generator, (There 
are 4-2 such generators plus one for illegal statement.) These generators must 
return, when they have completed the statement, by the standard subroutine 
return JLH M3. If, however, they encounter "End of Buffer" rather than "End 
of Statement" during the processing of the statement buffer atoms, they call 
the program FREFIL which is a part of the Statement Recognizer which continues 
to translate the original cards into atoms in the statement buffer. 

As before, if the statement buffer is exhausted, the "End of Buffer" 
atom is inserted; otherwise the "End of Statement" atom is inserted. When the 
comj^lete statement has been processed, the generating program will finally 
return to the Statement Recognizer by the standard return JHL M3. 
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Table 3.5,lola. Operand Atoms in the Statement Buffer 



1 8 9 12 13 M+_4;5__^l 

External Name/ Number 





Internal Name 



r 



BCD 




33 38 



Code C 

GOOF Internal name for a constant in the constant 
table. F = implies fixed point. 

0100 Number was fixed, was less than six digits. 
Appears in bits I3 to hk as integer. 

1000 BCD character in bits 33 to 38. 

XOIF Name with no left parenthesis following 

X = implies either that the first char- 
acter is X if the name is longer than three 
characters and is followed by a (, or that 
that first character is I, J, K, L, M or N 
otherwise. F = implies an initial I, J, 
Yi, h, M or No 



XllF 



As XOIF, but left parenthesis follows name. 
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Table 3<,5ol.lb, Operation Atoms in the Statement Buffer 



12 13 





L 



Operation code 






End of Statem 


1 


= 


2 


) 


3 


> 


8 


+ 


9 


- 


10 


*■ 


11 


1 


12 


-X-* 


16 


( 


32 


End of Buffer 
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The Initial Scan of the Statement 

The statement is scanned until either the end of the statement Is 
encountered or an = sign is encountered. During the scan a count of the 
number of left minus the number of right parentheses is kept. If this is 
when an equal sign is found then the statement must fall in one of the 
categories : 

1. Illegal Statement 

2. Arithmetic Statement 
Ih, Dj6 statement 

2k, CALL Statement (using Hollerith parameters) 

or 

26. Fj^SiRMAT Statement (also using Hollerith) 

The latter two cases are checked for "by first comparing to see if the first 
four characters are CALL or the first seven FORMAT( . If the latter is true, 
then it is a Fj6rMAT statement. If the former is true, then a scan is made 
starting from the first ( in the statement. If the sequences (dd, . .dH or 
_,dd.,.dH (where d is a decimal digit) appear before the first = sign, the 
statement is a CALL statement. Otherwise it is assumed to be an arithmetic 
statement . 

If the first four or seven characters are not CALL or FJZ5rMAT( 
respectively, then a D0 is checked for by scanning the characters beyond the 
first = sign. If + - * / ( ) .or EOS appears before a,, then it is not a 
D^ statement; otherwise it is assumed to be a DJD statement. 

If there is no = sign, or if the first = sign occurs with a nonzero 
parenthesis count, a decision about the statement is based on some of the 
characters already examined and on the number of characters before the first 
= or EOS. The basis of the decision is given in Table 3. 5. 1.2 below. , In this 
table "N3" means that there are three characters before the = or EOS; similarly 
for n4, N5 and n6. No such statement means that there are seven or more 
characters. "2 = M" means that the second character is an M, Also shown in 
this table is the number of characters deleted before the statement is scanned 
a second time in order to be broken into atoms. (During this second scan, a 
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Table 3 „ 5, 1.2. Statement Types 



Statement 








Type 






Characters 


Number 


Statement 


Recognition 


Deleted 




Illegal 


lifeilure ;td satLsf y. other classes 




2 


Arithmetic 


See above 


None 


3 


G^ T^ 


1 = G and (N5 or 

n6 and 2 = jZ5 or 5 = #) 


2)2$ 


k 


Gi^T^ (#, ..., #). d 


1 - G and 5 = ( 


2.^ 


5 


Gj^Tj^ d,(#, ..., #) 


1 = G and 5 = a (a means 
alphabetic) 


2JZ5 


6 


ASSIGN # T^ d 


1 = A 


IN (also two 
characters 
are removed 
after #) 



7 IF (EXPS) #,#,# 

8 SENSE LIGHT . . . 

9 IF (SENSE LIGHT ... 

10 IF (SENSE SWITCH ... 



3 = ( and next seven 
characters not a, 

2 = E 

1=1 and 3 = ( and 
k through 9 = SENSE L 
and 10 = a 

1=1 and 3 = ( and 
h through 9 = SENSE S 
and 10 = a 



11 


IF ACCUMULAT/5r j6vERFLjZ5w 


1 = I and 3 = A 


12 


IF QUOTIENT fiWRYhfM 


1 = I and 3 = Q 


13 


IF DIVIDE 


CHECK 




1 = I and 3 = D 


±k 


Dj6 ... 






See above 


15 


Cj2$NTIMJE 






1 = C and 3 = N 


16 


PAUSE 






N5 and 1 = P 



IF 

IT 
IT 

IH 

IW 
IW 
IK 

IE 
IE 
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Table 3.5.1.2 (Cont'd): Statement Types 



Statement 
Type 
Number 

17 



Statement 



25 
26 

27 



PAUSE # 



18 


STj6P 


19 


ST^P # 


20 


END 


21 


end( ... 


22 


FUNCTIJ25W 


23 


SUBRJZJUTIKE 


2h 


CALL ... 



RETURN 
Fj^^RMAT 

READ .. 



28 


READ INPUT TAPE 


28a 


RIT ... 


29 


READ TAPE . . . 


30 


READ DRUM 


31 


PUNCH 



Recognition 


Characters 
Deleted 


N6 and 2 = A and 
or 1 = P and 2 = 


i/^c 

A 


IE 


N4 




IP 


N5 and 1 = S 
or N6 and 2 = T 




IP 


N3 




ID 


1 = E and ij- = ( 




ID 


1 = F and 2 = C 




2N 


1 = S and 2 = U 




IE 


N5 and 1 = C 




2L 



or N6 and 2 = A and 1 = C 
or 1 = C and 4 = L 
or see above 

N6 and 2 = E 

1 = F and 2=0 
or see above 

1 = R and 5 = # and 2^1 
or n6 and 4 = D 

1 = R and 5 = I and 2 j^ I 

1 = R and 2=1 
or n6 and 2 = I 

1 = R and 5 = T and 2^1 

1 = R and 5 = M and 2 ?^ I 

1 = P and 2 = U 
or N6 and 2 = U 



IN 

K 

ID 

2E 
IT 

2E 
IM 
IH 
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Table 3.5.1o2 (Cont'd): Statement Types 



Statement 
Type 
Number 

32 



Statement 



PRINT 



Recognition 



1 = P and 2 = R 
or n6 and 2 = R 



Characters 
Deleted 

IT 



33 


WRITE J^UTPIJT TAPE . . , 


1 = W and 6 = j6 and 2 ^ fi 


2E 


33a 


WJ25t 


1 = W and 2 = jz5 

or n6 and 2 = ^ and 1 ^ G 


IT 


3^ 


WRITE TAPE 


1 = W and 6 = T and 2 ^ f) 


2E 


35 


WRITE DRUM 


1 = W and 6 = D and 2 / jZ$ 


IM 


36 


END FILE 


1 = E and 4 = F 


2E 


37 


REWIND 


1 = R and 5 = W and 2 7^ I 


ID 


38 


BACKSPACE 


1 = B 


IE 


39 


DIMENSION „_ 


1 = D 


2N 


40 


FREQUEINCY 


1 = F and 2 = R 


lY 


1+1 


EQUIVALENCE 


1 = E and 4=1 


3E 


42 


cjz5mm^n 


1 = C and 3 = M 


IN 


43 


"f card" 


Col 1 = F 


None 




statement may become illegal.) The notation used in this column is of the 
form "2N" meaning that the scan is made to the second N before beginning the 
analysis. 

Part of the job of checking for legal statement sequences is 
performed by part 1 of the program. The word PSIG is prepared by the control 
section, and contains information about the outside label, if any, and about 
preceding statements. Its format is 



13 



A 



26 



B 



39 ^0 



CD 



PSIG 



If L is nonzero, this statement has a statement number, and its 
internal form is L. It is placed there by the routine FPLABL which is CALLed 
when part 1 senses a statement number. 

Bit A is a one if this statement number closes a D^ loop. FPLABL 
turns it on, and part 1 tests it after the statement has been completed by 
the generator. If it is on, part 1 branches to PDOCL (do closure program). 

Bit B indicates that the next executable statement must have a label. 
Part 1 tests this (and turns it off) only if the statement is executable. This 
bit is turned on by GJ25 Tj6 and IF type statements. 

Bit C indicates that the next statement must be executable. Except 
in the case of FJ^RMAT, part 1 tests this and turns it off. It is turned on 
by a D0 statement. 

Bit D is turned on if FPLABL finds a statement number that has been 
used in an input -output type statement as a format number, but has not yet 
been defined. Its entry type in the LABEL table is changed from type 3 to 
type 1 and bit D is turned on. ■ 

If D is on for anything but a format statement it is therefore 
illegal. 
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GREAD 

GREAD uses a card buffer area GRCDBF to hold the next card. It also 
uses a 100-word huffer GRASS area to hold up to ten cards of a single state- 
ment (ten words per card). Initially bits and I3 of the first word are set 
to 1. This state indicates that a new statement is to be processed. The first 
entry to GREAD recognizes these bits and causes the first card image from 
GRCDBF to be copied into the first available spot in the card assembly area 
GRASS. The next card image is read into GRCDBF and examined. If column 1 is 
a C, it is printed and otherwise ignored. If column 1 is not a C and column 6 
is not blank or 0, it is copied into the next available spot in the GRASS buffer 
provided that there is still space. If there is no space left, an error is 
listed. If the next card does not have a C in column 1 and is blank or in 
column 6, or if there is no next card, the statement is taken as complete, so 
a sign bit is set in bit of the last card image in GRCDBF. Columns 1-5 
of the first card of the statement are now examined for F, B or D cards and 
for a statement number. A statement number is converted into binary in the 
accumulator with 4096 in MO, B and D cards set bits in the word GRBDSW. 
F cards cause an immediate exit with -1 in MO. 







13 






1 



neither B nor D card 

1 D card 
B card 



GRBDSW Control Word 



Subsequent entries to GREAD cause successive characters of the card 
Images to be placed in MO. When the last character of a card is read, the 
sign bit in bit of the tenth word of that card image in GRASS is tested. 
If it is a 1, then this is the last card, i.e., the end of the statement. A 
sign bit in bit I3 of the same word is now set so that on the next entry the 



Date: 


1/2.1/ek 


Section: 


3o5a 


Page: 


11 of 1)4 


Revision: 





statement processing will start over, and an exit is made with 4096 in MO 
as an end of statement mark. 

If, in this process, reading the next card causes a return due to 
End of File or not BCD card without $ in column 1, a sign hit is also set 
in hit 26 of word 10 of the last card. This causes the next request for an 
additional statement to print a "NO END CARD" message followed by a hranch 
to the END statement generator o 

Each statement read by GREAD is listed and sequentially numbered 
on the right of the page. 



GRBACK 

GRBACK is an additional short program that resets the counts in 
GREAD to the beginning of the current statement. These counts are: 



GLCl 



NO 



Nl 



N2 



N3 



z\ 



L- Left^right of 
current quarter 
(-27-1) 

— Current quarter word ~k 

Current word in card assembly area 
GRASS 

L- Minus number of columns left on this card image 



GLC2 



GRPRBF 



GRCDBF 1 



L 



Sequential statement number 



Date: 


l/2.l/6k 


Section: 


3.5.1 


Page: 


12 of Ik 


Eevision: 







RESET 
MO, Mi, 
M2,M3 



eXTR/\CT NieXT 
CHARACTER 
TO MO 



Kil' = Mi+i 
MO = -C><o 
M2=-l 



SET BIT 1-5 - 

MO=-i 
Mo= -4-09 e 




e:xit 



OL 



RESET Ni.C«0 
COKWERT SEOUEWT 
ED STATE ME WT 
NUMBER 




PRIMT MO 
EUD CARD. 
BRAWCW TCi 



Date: 


i/2iiek 


Section: 


3.5.1 
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/3 



SET KiCi 
L^BEL EXIT 



SET Lft.StL 
CX\T 




OTHER 



ERROR 



Date: 


7/27/6U 


Section: 


3.5.1 


Page: 


Ik of Ik 


Revision: 






CO^PY MEXT C^RD 
TO PR mT/^MD GR- 
ASS AREA,PRIMT 
AMD READ. 




ETRROR. STATE- 
NEMT Jbb L6MG 



I 



COPY MtXT CARb 
TO PRINT AREK 
PRIKiT AMD 
READ 



SE:T SIGN) TfO 
COLUMN 72 LAST 
CARD 



RESET Ml 



B 



Z7002 




LIZ B ROWER 




$ 


PUNCH 


OBJECT 




$ 


PRINT 


OBJECT 




$ 


NICAP 








ENTRY 


FREFILjGREAO 


,GR BACK, GDECVT, FPl, GENTAB.GT ABLE 


READ 


EQUS 







BCD 


EQUS 







EE 


EQUS 







GROTMB 


EQUS 


2 




Li ERR 


EQUS 


4 




FT2 


EQUS 







SYSERR 


EQUS 


t937 




GRASS 


EQUS 


50 




COUT 


EQUS 


150 




SYSIO 


EQUS 


1939 




GRCDBF 


EQUS 


240 




GRPRBF 


EQUS 


260 




CONST 


EQUS 


283 




PSIG 


EQUS 


285 






ORG 


250 




PCAO 


DECQ 


0t4095,PCAP, 







ORG 


290 




GMAST 


DECQ 


QrO 




GERROR 


JLH 


3,0 




FPLABL 


JLH 


3,0 




SOUH 


JLH 


3,0 




FIYl 


BSS 


22 




POOCL 


8SS 


1 




PCAP 


BSS 


50 




FPl 


CAH 


F«2 


SET LABEL «ARK TO ZERO 




CAM 


FH2 


2.1, SET LABEL MARK TO ZERO 




LFR 


2,FC17 


INITIALIZE ASSIGN SWITCH 




SFR 


2,FP65 






SFR 


4,FVll 


SET REFIL RETURN MARK ZERO 



0061 
0062 
0063 
0064 



w 


•t) CO o 


(t) 


JB CD SB 


< 


OQ O cl- 


H- 


fD c+ fD 


CO 


.. H- •• 


H- 


O 


O 


13 


t3 






HU) -O 




o vji ro 




ht o -J 




H^--^ 




UJ - ON 




VJi H -P^ 



FPIA2 



FP2 



FP4 



J SB 


FM3,GREA0 


FIL 




JPM 


FM0,FP1A2 


CJZ 


FMOtFCARD 


SAM 


FVl 


CSN 


FM2.1 


J SB 


FM3,FPLABL 


FIL 




ATN 


I 


CAM 


FMXl 


CAM 


FMX5 


CAM 


FMX2 


CAM 


FMX3 


CAM 


FM4 


CSM 


FM5,7 


JSB 


FM3,GREA0 


FIL 




JNM 


FMO.FPll 


LFR 


6,FMQ+FT6 


ANN 


FM8,7 


CSM 


3 


JZH 


3.FP2 


CJZ 


3,FP9 


CJZ 


3,FP4 


SBM 


FM4,l 


CJZ 


3,FP4 


AOH 


FM4,2 


JUM 


FMX2.FP2 


SFR 


4,FT1-FM5-1 


CJU 


FM5,FP8 


CAM 


FMX2,1 


LOM 


0,FTI+6 


CAD 


9,3,FM0 


CSM 


FM3,6 



3, READ LABEL IF AMVt DETECT F CARD 

4, JUMP IF NO F CARD AND NO LABEL 

5, JUMP TO F CARD ROUTINE 
7, SAVE LABEL IN FVI 

7, SET LABEL MARK = -I 

7, GO TO PASTA WITH LABEL IN AC, FVl 

SWITCH XI TO 1 
SWITCH XI TO OR 1 



9, SET SWITCH X3 TO ZERO 

10, ZERO IN PAREN COUNTER 

11, -7 IN CHAR. COUNTER 
12, 

13, EOS, GO TO SWITCH XI 

BLANK 

OTHER 

) 
f 

SWITCH X2 

18, 19 ADD 1 TO CHAR COUNT, TEST FOR 
20, HERE IF 7 CHARS READ, PUT X2=l 



21 
21 



0065 
0066 
0067 
0068 
0070 
0071 
0072 
0073 



0075 
0076 
0077 
0078 
0079 
0080 
0031 



0094 
0095 
0096 
0097 
0098 
0099 
0100 



w 


^xl 


m 


O 


a> 


SB 


o 


P 


<i 


m 


o 


rh 


H- 


(D 


c+ 


(X) 


m 


• • 


H- 


• • 


H- 




O 




O 




3 




ts 










ro uj -J 




o 


vn 


r\3 




Hb 


H 


-J 




OO 


• 


On 




vn 


H 


-p- 



FP5 L0« OtFTl-FM3-l 

MPY 9f3t64 

ADD 9,3,FH0 

CJU FH3,FP5 

SUB FC5 

JOC 4,FP6 

JSB 3,2.FTY1+12 
FIL 

TR4 GFP3*1 

FP6 L0« 0,FT1*6 

CAD 9,3,FH0 

CSM FM3t3 

FP? LDH QrFTl-FH3+2 

MPY 9,3,64 

ADO 9,3,F«0 

CJU FM3,FP7 

SUB FC6 

JOC 4,FP8 

CA« F«X6 

CAM FHX5,l 

JUH FIIX3,FP2 

CAM FHXl.l 

CAM F«)(3,l 

JUH FHX3,FP2 

JUM FN4,FP11AI 

JUM FMX5,FP37 

JSB FM3,GREA0 
FIL 

JNM FM0»FP10A2 

LFR 6,FT6+FM0 

JPM FM9,FP10A1 

FP10A2 CAM FM1,2 

JPM FMXS.FTYPZ 

FPlOAl JPM FH10,FP10 



FP7A1 
FP8 



FP9 



FPIO 



21 
21 
21 
21 
21 



LOOP IF 
COMPARE 
JUMP IF 



NOT FINISHED 
MITH CONSTANT 
NOT FORMAT 



F3RMATC 



FORMAT EXIT 

TAKE CARE OF PSIG 

21 

21 



IF NOT FINISHED 
KITH CONSTAf^T CALL 
NOT CALL 
CALL 



21 

21 

21 GO BACK 

21 COMPARE 

21 JUMP IF 

21 HERE IF 

21 

SWITCH FX3 

22 

23 



24, HERE ON FIRST=, TEST PAREN CT 
SWITCH FX5, 

25, BEGIN TEST FOR ARITH. OR 00 STAT. 

26, JUMP FOR EOS TO TYPE 2 EXIT 

27, JUMP IF NOT +-•/(). 

27, HERE IF ♦-»/lU SET TYPE 2 MK 
27 TYPE 2 FIRST EXIT 
27 JUMP IF NOT , 



0101 
0102 
0103 
0104 
0105 
0106 



0109 
0110 
Olli 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 



w 


■xi ca O 


tD 


P3 (D fD 


<! 


oq o ci- 


H- 


(I d- fD 


m 


.. H- •• 


H- 


o 


O 


p 


ti 






UJU):^ 




o vn ^3 




H) « —] 




H^-- 




U) = On 




v-n H -F" 



CAM 

4m 

FPU JZH 
FPllAl CAM 
J2M 
CJZ 
CJZ 
CAM 
CJZ 
CAM 
CJZ 
TRA 
FP12AI LOM 
LFR 
ANN 
CSH 
JZM 
CJZ 
CAM 
CJZ 
CAM 
CJZ 
CJZ 
CJZ 
CJZ 
CAN 
CJZ 
CJZ 
CJZ 
CJZ 
CJZ 
LOM 
SBN 
CAM 



FMI,14 

FMI0,FT¥P14 

FMXl.FPl 

FM3 

FM5,FP12A1 

FM5,FP33 

FM5,FP3i 

lfl8 

FMS.FTYPIS 

lt20 

FM5.FTYP20 

FTYPl 

0,FTl+6 

6,FT6*FM0 

FM10,15 

3 

3, FTYPl 

3,FP29 

FM1,6 

3,FTYR6 

FMi,38 

3,FT¥P38 

3,FP27 

3,FP25 

3,FP23 

FMl»39 

3,ETYP39 

3,FP21 

3,FP19 

3.FP17 

3,FP15 

OfFTl+5 

Ot38 

l»33 



27 HERE IF , 

27 TYPE 14 FIRST EXIT 

28 SWITCH FX4 

7 OR MORE CHARS 
6 CHARS 
5 CHARS 

4 CHARS 

3 CHARS 
2 OR LESS 



OTHER 

G GO TO TEST 4 

36 A 

A 

36 a 

B 

I 60 TO TEST 6 

S GO TO TEST 7 

C GO TO TEAT 8 

36 

O 

P 

E 

F 

R 

1»W, 2N0 CHAR 

2=0 



0134 
0135 
0135 
0137 



0156 
0157 



0165 
0167 



0175 



w 


>Ti 


m 


t( 


CD 


p 


w 


P 


< 


tn 


o 


cl- 


H- 


a> 


d- 


fD 


m 


• • 


H- 


• • 


H- 




o 




O 




t3 




P 










-Ft-CjO^ 




o 


VJl 


ro 




Hj 


H 


-J 




U) 




ON 




vn 


H 


-P- 



JZM 0,FTP33A 

LOH 0,FT1+1 

LFR 6,FT6<^FH0 

ANN FH9 1 3 

TRA FPl* 

FP14 CAM FMl.l 

TRA FTVPl 

CAM FM1,33 

TRA FfyP33 

CAM FMl,34 

TRA FTYP34 

CAM F«l,35 

TRA FTVP35 

FP15 LDM 0tFTl*5 

S8H 0,57 

CAM 1,28 

JZM 0,FTP28A 

LOM O.FTltZ 

LFR 6,FT6+FM0 

CRM FM10,6 

ANN FM10,7 

TRA FP16 

FP16 CAM FM1,37 

TRA FTYP37 

CAM FMl,30 

TRA FTYP30 

CAM FM1,29 

TRA FTYP29 

CAM FMl,28 

TRA FTYP28 

CAM FMl,27 

TRA FTYP27 

TRA FTYPl 

FP17 LDM 0,FTl+5 



WOT 



37 OTH 


TYPE 1 


37 


37 T 


37, 


2ND CHAR 


2=1 


RIT 


5TH CHAR 



0185 
0186 



0190 
0192 
0194 
0195 



38 

38, N 

38, 

38 T 

38 I 

38 NUMBER 



0199 
0200 



0204 
0206 
0208 
0210 
0212 

0215 



td 1x1 


cn o 


(D {0 


CD SB 


< en 


O <rl- 


H- fD 


d- (D 


CO •• 


H- •• 


H- 


O 


O 
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?. 




vn 


LO —J 


o 


vn ro 


i-b 


= -J 




i--^---. 


OO 


• 0^ 


vn 


H -t=- 



LFR 6tFT6«FM0 

CRM FM10,4 

ANN FM10,3 

TRA FP18 

FP18 CAM FHl.l 

TRA FTYPl 

CAM FHl,40 

TRA FTYR40 

CAM FM1,22 

TRA FTYP22 

CAM F«l,26 

TRA FTYP26 

FP19 LDM OfFTl+3 

LFR 6,FT6+FM0 

CRM FM9,2 

ANN FM9,3 

TRA FP20 

FP20 CAM FMl,21 

TRA FTYP21 

CAM FMl,36 

TRA FTYP36 

CAM FMl,41 

TRA FTYP41 

TRA FTYPl_ 

FP21 LDM 0,FTlt5 

LFR 6.FT64FM0 

CRM F«9t4 

ANN FM9,3 

TRA FP22 

FP22 CAM FMI,17 

TRA FTYP17 

CAM FMl,3l 

TRA FTYR31 

CAM FHl,32 



39 

39 OTH 
39 R 
39 U 

39 

40 

40 { 
40 F 
40 I 



41 

41 A 
41 U 
41 R 



0217 

0218 



0222 

0224 

0226 

0228 

0230 
0231 
0232 

0236 
0238 
0240 



0244 
0245 
0246 



0250 
0252 
0254 



w 


^ 


CQ 


t3) 


IT) 


P 


a> 


p 


<1 


m 


n 


d- 


H- 


(X> 


c+ 


fB 


m 


• " 


H- 


• • 


H- 




o 




O 




t3 




t! 










cr\Lo —J 




o 


VJI 


ro 




Hj 


M 


-<i 




oo 




OA 




VJl 


M 


-P- 



TRA FTYP32 

TRA FfYPl 

FP23 LDM OtFTIt* 

LFR 6,FT6*FH0 

CRM FM9,6 

AMM FM9,3 

TRA FP24 

FP24 CA« FHlfl 

TRA FTYPl 

CAM FHl,15 

TRA FTYPl 5 

CAM FMlt24 

TRA FTYP24 

CAM FH1,42 

TRA FfYP42 

FP25 LOM OfFTl*5 

LFR 6.FT6+FM0 

CRM FM9,8 

ANN FM9,3 

TRA FP26 

FP26 CAM FMlfS 

TRA FTYP8 

CAM FMltl9 

TRA FTYP19 

CAM FMl.23 

TRA FTYP23 

TRA FTYPl 

FP27 LOM OrFTH-4 

LFR 6,FT6+FM0 

CRM FMlOr9 

ANN FMlOt? 

TRA FP28 

FP28 CAM FMltT 

TRA FTYP7 



42 

42 OTH 
42 N 
42 L 

42 M 

43 

43 E 
43 T 
43 U 



44 



44 C 



0258 
0259 
02&0 



0254 

0266 

0268 

0270 

0272 
0273 
0274 

0278 

0280 
0282 



0285 
0287 
0288 



0292 



w 


hd 


CQ 


O 


CD 


pa 


(D 


SB 


<! 


TO 


O 


d- 


H- 


CD 


d- 


CD 


m 


>a 


H- 


• • 


H- 




O 




O 









ti 










-<1 UJ 


::;-j 




o 


VJl 


ro 




t-t) 


H 


-J 




OJ 




o\ 




vn 


H 


•(=- 



FP29 



FP30 



FP31 



FP32 



CAM 


FMiai 


44 A 


TRA 


FT¥Pll 




CA« 


FM1,12 


44 Q 


TRA 


FTVP12 




CAM 


F«i,l3 


44 D 


TRA 


FT¥P13 




TRA 


FTYPl 




LOM 


0,FTl*2 




LFR 


6,FT6+FM0 




CRM 


FM9»10 


45 


ANN 


FM9,3 




TRA 


FP30 




CAM 


FMl.l 


45 OTM 


TRA 


FT¥P1 




CAM 


FMl,3 


45 NUMBER 


TRA 


FTYP3 




CAM 


FMl,4 


45 { 


TRA 


FTYP4 




CAM 


FM1,5 


45 ALPAA 


TRA 


FfYP5 




LDM 


OrFfl+6 




LFR 


6»FT6*FM0 




CRM 


FMll,3 


46 


ANH 


F«ll,7 




TRA 


FP32 




CAM 


FMl.l 


46 QTH 


TRA 


FTYRl 




CAM 


FH1,3 


46 G 


TRA 


FfYP3 




CAM 


FM1,16 


46 P 


TRA 


FTYP16 




CAM 


F«1,19 


46 S 


TRA 


FTYP19 




CAM 


FM1,24 


46 C 



0294 
0296 
0293 



0302 
0303 
0304 



0303 

0310 

0312 

0314 

0316 
0317 
0318 

0322 
0324 
0326 
0323 
0330 
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hd 


CQ 
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(D 
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O 
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CDUJ ^ 




o 


VJl 


ro 
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H 
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U) 


• 


ON 




\J1 


H 


XT 



TRA FTYP24 

FP33 LOM 0,FT1*5 

LFR 6,FT6+H0 

ANN 11,7 

TRA FP34 

FP34 CAH 1,1 

TRA FTYPl 

CAM 1,32 

TRA FTYP32 

CAH 1,2 

TRA FTYP3 

CAM 1,25 

TRA FTYP25 

LOM Q,FTl+6 

TRA FP34A 

CAM 1,19 

TRA FTYP19 

LOM 0,FT1*6 

TRA FP348 

CAM 1,28 

TRA 1,FTP28A 

FP34A SBM 0,51 

CAM 1,24 

JIM 0,FTYP24 

CAM 1,17 

TRA FTYP17 

FP34B SBM 0,55 

CAM 1,3 

JZM 0,FTYP3 

CAM 1,33 

TRA FTP33A 

FP37 JSB FM3,GRBACK 
FIL 

FP38 4SB FM3,GREA0 



2H0 CHAR 

OTHER 

R 

U 

E 

A 

T 



I 

1=C 



1=G 



52 RESET CHAR. READ TO CDL. 7 
52 

53 READ CHARACTER-SEARCH FOR C 



0353 
0354 
0355 



w 


hj 


CQ 


O 


(C 


CO 


<D 
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<! 


OQ 


n 


C+- 


H- 


ft 


d- 


CD 


CO 
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VO UJ^ 
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ro 
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;;;^ 




UJ 
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vn 
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FIL 






JPM 


FM0,FP39 


FP38A1 


CAM 


FMl.l 




J MM 


FM0,FTYP1 


FP39 


SBM 


FMO.ll 




JZM 


FM0,FP46A2 




SBM 


FM0,17 




JUM 


FM0,FP38 


FP40 


JSB 
FIL 


FM3iGREA0 




JNM 


FM0,FP38A1 




LFR 


6,FT6+FM0 




CRM 


FM8,3 




ANN 


FM8,3 




CSM 


3 




JZM 


3,FP40 




CJ2 


3rFP44 


FP42 


J SB 
FIL 


FM3,GREA0 




JPM 


FM0,FP43 


FP42A1 


CAM 


FMl.l 




JMM 


FMO,FTYPl 


FP43 


SBM 


FMO.ll 




JZM 


FM0,FP46A2 




SBM 


FMQ,16 




JZM 


FM0,FP40 




JUM 


FN0,FP42 


FP44 


JSB 


FM3.GREAD 




FIL 






JNM 


FM0,FP42Al 




LFR 


6,FT6*FM0 




CRM 


FM8,3 




ANN 


FM8,3 




CSM 


3 



53 
54 
54 

54 TYPE 1 FIRST EXIT 

55 IS CHARACTER = 

55 JUMP IF YES TO TYPE 2 EXIT 
55 IS CHARACTER C 

55 

56 PRECEDING CHAR IS C 
56 

JUMP TO TYPE I EXIT 
58 BEGIN TEST 16 PRIME 
58 



BLANK 

NUMBER 

59 HERE IF OTHER 

59 

59 

59 

59 TYPE 1 FIRST EXIT 

60 IS CHARACTER = 

60 JUMP IF YES TO TYPE 2 EXIT 
60 US CHARACTER , 



61 HERE IF NUMBER, LOOK FOR H 
61 

62 JUMP TO TYPE I EXIT 
63 

63 



0356 
0357 
0353 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0357 
0368 



0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 
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JZM 


3,FP44 




CJZ 


3,FP44 




CJU 


3,FP43 




TRA 


FMX6+FP46 


FP46 


CAM 


FM1,24 




JPM 


FMi,FTYP24 




CAM 


FMl.26 




JPM 


FMI.FTYP26 


FP46A2 


CAM 


FMl,2 




JPM 


FMltFTYP2 


FTYPl 


CAM 


1,EE*4 




CALL 


GERROR 




CALL 


GR8ACK 


FTYPIA 


CALL 


6READ 




JPM 


0, FTYPIA 




CAM 


I 




TRA 


FP62 


FTYP4 


EQUL 


FTYP3 


FTYP5 


EQUL 


FTYP3 


FTP28A 


EQUL 


FTYP8 


FfP33A 


EQUL 


FTYP8 


FTYP31 


EQUL 


FTYPIO 


FTYP12 


EQUL 


FTYPll 


FTYP23 


EQUL 


FTYP17 


FTYP28 


EQUL 


FTYP29 


FTYP38 


EQUL 


FTYP17 


FTYP27 


EQUL 


FTYP21 


FTYP3T 


EQUL 


FTYP21 


FTYP39 


EQUL 


FTYP22 


FTYP33 


EQUL 


FTYP29 


FTYP34 


EQUL 


FTYP29 


FTYP36 


EQUL 


FfYP29 


FTYP35 


EQUL 


FTYP30 


FTYP32 


EQUL 


FTYP8 



&LANK 

NUMBER 

OTHER 



TYPE 24 FIRST EXIT 
TYPE 26 FIRST EXIT 
TYPE 2 FIRST EXIT 



0405 
0406 
0407 
0408 
0409 
0410 



ERROR TYPE MARK 
TAKE CARE OF PSIG 



w 


i-d CO « 


(V 


PO (D 03 


< 


OQ O c1- 


H- 


CD d- (D 


TO 
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FTYP6 
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2,FP65 


FTYP42 
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EQUL 


FTYP26 


FTYP8 
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FTYPIO 
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FTYP13 
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FTYP14 
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-15 


FfYPlT 
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14 


FTYP19 


ATN 


-13 


FTYP21 


ATN 


24 


FTYP26 


ATN 


-8 


FTYP30 


ATN 


12 


FTYP40 


CAM 


9,24 




TRA 


FP60 


FTYP15 


EQUL 


FTYP17 


FTYP16 


EQUL 


FTYPIT 


FTYP18 


EQUL 


FTYP19 


FTYP20 


EQUL 


FTYP21 


FTYP25 


EQUL 


FTYP42 


FTYP9 


EQUL 


FTYP8 


FTYP3 


ATN 
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FTYP22 


ATN 


2 


FTYP24 


ATN 


-18 


FTYP29 


CAM 


9,53 




TRA 


FP59 


FTYP4I 


CAM 


9,53 




ATN 


1 


FP59 
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I 


FP6Q 


CSM 


8,1 




CALL 


&RBACK 


FP61 


CALL 


GREAO 



HERE IF ASSIGN 
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JNN 


OsFTYPl 




S8M 


0,M9 




JUH 


0,FP6l 




CJU 


8,FP6l 




TRA 


FP62 


FTYP2 


CALL 


GRBACK 


FP62 


CAH 


FMX10,1 




SBH 


FM1,24 




JUM 


FMl,FP62A3 




CAM 


FMXIO.O 


FP62A3 


SBM 


FM1,2 




JUM 


FM1,FP62A4 




4 SB 


3,2,FTY1+12 




FIL 






TRA 


GFP3+1 


FP62A4 


SBM 


FMl,13 




SFR 


4,FT1 




LFR 


6,PSIS 




JIH 


8,FP62A5 




SFR 


6,C0UT*1 




CAM 


8.3606 




SFR 


6.CQUT4-2 




CAM 


8,4314 




SFR 


6,C0UT 




LFR 


6,PCAD 




SFR 


6,C0UT*3 




iUM 


8.FP62B1 




CAM 


8,4112 




SFR 


6,C0UT 




CAM 


8,1473 




SFR 


6,eOUT*2 




ATM 


-I 


FP62B1 


CAM 


4,C0UT*4 




JSB 


3,S0UT 



EOS 



64 SET SWITCH FOR NAME SUB =1 



IF CALL SET SWITCH OF N.S.=3 



0437 
0438 
0439 
04%0 



FORMAT EXIT 

GO TO CLEAN UP PSIG 



NAME 
LFR5,2, 



LONG, NAME, NAME 



SHORT 
CAM 0,1, 
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\J1 







FIL 




LFR 


6,PSIG 


FP62A5 JPM 


l,FP62A7 


JPM 


10.FP62A6 


ANM 


I0t4095 


JUM 


8,FP62A6 


CAM 


l.EE 


CALL 


GERROR 


FP62A6 CAH 


8 


AMM 


11,4095 


FP62A7 JPH 


11, FP 62A8 


CAM 


l,EE+l 


CALL 


GERROR 


FP62A8 JZM 


8,FP62A9 


CAM 


l»EE+2 


CALL 


GERROR 


FP62A9 ANM 


11,2048 


CAH 


8 


ANH 


11,2047 


JZH 


8,FP628 


CAM 


8 


CAM 


l.EE-^S 


CALL 


GERROR 


FP62B SFR 


6,PSIG 


LFR 


4,FTl 


LFR 


6,FT2 


ADM 


1,39 


J2M 


1,GFP3+1 


CAM 


FMll.l 


CAM 


FMIO.O 


CAM 


FM12,0 


SFR 


7,Fy4 


LDM 


FM5,FC8 


FP62A2 JSB 


FM3,6READ 



NON EXEC 



ERROR TYPE, DONT TRANSLATE 

65 NEXT ATOM TO BE READ IS IN I 

66 NUMBER OF ATOMS IS ZERO 



67 



SET ATOM CNTR= -NJMB. OF CELLS 



0450 
0451 
0^52 
0453 
0454 
0455 



w 


hj 


CQ 


O 


ro 


P 


fD 


P 


<! 


m 


O 


c+ 


H- 


CO 


ct 


a> 


m 


• • 


H- 


•• 


H- 




o 




O 




a 




a 










M U) -O 




-P- 


■ 


■"^-.^^ 






vn 


ro 




o 


• 


-0 




l-b 


H 








• 


~On 




UJ 


H 


-p- 




VJI 
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FP62A1 


JNM 


FH0rFP69A3 




LFR 


7rFT6+FM0 




CRM 


FM12,5 




ANN 


F«I2,7 




CSM 


3 




JZM 


3,FP62A2 




CJZ 


3,FP64 




CJZ 


3,FP65 




CJZ 


39FP66 




CJZ 


3,FP34 




JUM 


FMX10»FP65 




JZM 


F«l0tFP63Al 




LFR 


7,FT2+FM10 


FP63A2 


A MM 


FM12,4103 




SBH 


FM12,4100 




JZ« 


FM12,FP7l 




JUH 


FM12»FP65 


FP63A1 


LDM 


FM12,FV4 




JZM 


FM12,FP65 




LFR 


7,FV5 




JPM 


FM10tFP63A2 


FP64 


JSB 
FIL 


FM3,FP87 




TRA 


FP67 




FIL 




FP65 


JSB 
FIL 


FM3,FP77 




TRA 


FP67 


FP66 


CRM 


FM15.7 




ANM 


FMJ.5,63 




CAM 


FM12,FM15 




SFR 


7,FT2+FM10+l 


FP66A1 


JSB 


FMSsGREAO 



67 

68 JUMP 2F EOS 

68 TEST 17 

68 



BLANK 

NUMBER OR PERIOD 

ALPHA 

OPERATION 

OTHER 

H NOT HOLLERITH JUMP 
FIRST IN STATE BUF 
GET ATOM PRECEDES H 



0456 
0457 
0458 
0459 



JUMP TO READ HOLLERITH CHAR. 
NOT HOLLERITH GO TO NAME SUB. 

NOT CONTINUATION GO TO NAME S. 



69 JUMP TO NUMBER SUBROUTINE 
69 

70 

70 JUMP TO NAME SUBo, SW. FOR ASSIGN 
70 

71 CONSTRUCT AND STORE OPERATOR 
71 ATOM IN STATEMENT BUFFER 

71 
71 
72 



0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 

0487 
0488 
0489 

0491 
0492 
0493 
0494 
0495 
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J2M 


FM0,FP66Al 


SBM 


FM0»44 


JUH 


FM0,FP66A2 


SBM 


FM12,10 


JUM 


FM12,FP66A2 


CAN 


FM12,12 


SFR 


7,FT2*FM10*1 


J SB 


FM3,GREAD 


FIL 




JP« 


FM10»FP67 


FP66A2 &0H 


FM0,44 


FIL 




FP67 AOK 


FMlO.l 


FP68 CJU 


FM5,FP62A1 


CAM 


FMI2,0 


SFR 


7fFV6 


FP68A1 CAH 


FM12,32 


SFR 


7»FT2tF«10+l 


A OH 


FMlO.l 


SFR 


4,FV2 


CAM 


FM9,FMI 


QRM 


FM9 , 4096 


SFR 


6,FT2 


LFR 


7,FT2*FM10-1 


SFR 


7,FV5 


CAM 


FMI2,l 


SFR 


7»Fy4 


SFR 


S.FVIO 


GFP LOM 


2,FVll 


JPM 


2.SFPI 


LFR 


4,GFP5 


LFR 


5,SFP5*1 


LFR 


6»GFP54^2 



72AI 
72A1 



72 Al 
72AI 



IS CHARACTER • , CHK FOR •» OP 

IF MOT GO BACIC 

72 Al IS FORMER CHAR. • 

72 Al IF NOT GO BACK. » 

IF IS» PUT » IN STATE BUF 



73 INCREASE ATOM COUNTERS AND TEST 
73,74 JUMP IF NOT FULL 



75 HERE IF FULL, LOAD BUFFER FULL 
75 MARK 

INCREASE COUNTER 



MARK FOR FULL BUF BUT NO EOS 
STORE FIRST WORD TO BUF 

STORE LAST WORD FROM STATE 3UF 

STORE COUNT I NU AT I ON MARK 
STORE H FIELD WIDTH COUNTER 
FIRST ENTRY TO STATEMENT GENERATOR 

RESTORE REGISTERS FOR EXIT FROM 
FREFIL 



0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0515 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
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7,6FP5^-3 




JLH 


M3 


GFPl 


SBH 
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CRH 


1,1 




ANN 


1,31 




LFR 


5,FTY1 




JPH 


l,GFP2 




CAM 


4,H6 




CAM 


5,M7 


GFP2 


SFR 
FLO 


5»GFP3 


SFP3 


BSS 


I 




LFR 


4,PSIG 




JPH 


1, GFLPOO 




CALL 


POOCL 


GFLPOO 


LFR 


4,PSIG 




ANM 


1,4095 




SFR 


4,PSIG 


GFP4 


TRA 


FPl 


GFP5 


BSS 


4 


FREFIL 


SFR 


4,GFP5 




SFR 


5,GFP5*1 




SFR 


6,GFP5+2 




SFR 


7,GFP5+3 




CAM 


2,-1 




SFR 


4,FV11 


FP69A4 


LFR 


4,FV2 




LFR 


5,FV10 




LFR 


6,FT2 




CAM 


FM11$1 




CAM 


FMlOjO 




LOM 


FM5,FC8 




LFR 


7,FV6 




JUM 


FM12,FP72 



TRANSFER VECTOR 
SHIFT LEFT HALF WORD 

BRANCH TO GENERATOR 



SAVE REGISTERS 



SET FREFIL HARK 



RETURN HERE AFTER EXIT DUE TO 

RECOVER H FIELD WIDTH COUNTER 
FULL STATEMENT BUFFER BUT NO 
EOS . 



79 



JUMP ON H MARK 
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0542 
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0559 
0560 
0561 
0562 
0563 
0554 
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JPM 


FMI,FP62A1 
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0565 




FIL 
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0566 


FP69A3 


CAM 


FM12,0 




69A1 


HERE IF END OF STATES 


0567 




SFR 


7,FT2*FM10+1 


69A1 


STORE EOS IN FT2 


0568 




ADM 


FM10»l 


L9A1 


INCREASE COUNTER 


0569 


FP69A7 


CAM 


FM9,FMl 




INSERT TYPE 


0570 
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SFR 


6,FT2 


69A2 


STORE 1ST WORD OF FT2 BACK 


0571 




TRA 


GFP 










0572 


FP71 


CRM 
CRM 
AHM 
ADM 
CSM 
LFR 
JPM 


FM15,7 

FM14,7 

F«14,8128 

FM15,F«14 

FM4,FM15+1 

7,FC7 

FM1,FP73AI 








OBTAINE THE WIDTH OF H FIELD 


0573 
0574 
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0576 
0577 
0578 
0579 


FP72 


J SB 
FIL 

JPM 


FM3.GREA0 
FM0,FP73 
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JPM 


FM1,FP34 








TO TlfPE I EXIT 


0583 


FP73 


GAM 


FM14,FM0 
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CAM 


FMI2,4104 










0535 


FP73AI 


SFR 
CJU 
J SB 
FIL 
TRA 


7,FT2*FM10*1 

FH4,FP74 

FM3,SREAD 

FP67 








STORE H FIELD I?4 BUFFER 


0586 
0587 
0588 
0589 


FP74 


ADM 


FMIO, I 








IflCREASE ATOM COUHT 


0591 




CJU 


FM5,FP72 










0592 




CAM 


FM12,l 








BUFFER FULL DURING H READ 


0593 




SFR 


7,FV6 
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JPM 


FMI,FP68A1 










0595 


FP77 


LFR 


7,FT6*FM0 
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CRM 


FMi2,8 
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ANM 


FM12,3 
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LFR 


2tFCl+Flll2 




SFR 


2,FT2*FM10+1 




CAM 


FM6,0 




CS« 


FM7,6 




CRM 


FM15,7 




ANM 


FM15,63 




CAD 


9,3,FM15 




SIF 


FF2 




SFR 


4,Fy3 


FP78 


JSB 
FIL 


FM3,6REA0 




JZH 


FMQ,FP78 




LFR 


7.FT6+FM0 




CRM 


FM15,7 




JPM 


FM15.FP84 




CAM 


FM6,FM0 




ADM 


FM7,1 




JMH 


FM7,FP79 




JZM 


FM7,FP80 


FP78AI 


CAM 


FMl.l 




JPM 


FMl.FTYPl 


FP79 


CAO 


F2 




MPY 


9,3,36 




ANM 


FM15,63 




ADD 


9,3,FM15 




SIF 


FF2 




JPM 


FM15,FP78 


FP80 


SBM 


FM0,54 




JZM 


FM0.FP78 




SBM 


FMl,7 




JZM 


FH1,FP81 




ADM 


FM1.7 




JPM 


FMl,FP78Al 


FP81 


CAD 


F2 



92 



81,82,83 CONSTRUCT MARKS IN 

81,82,83 STATEMENT BUFFER 

84 

85 INITIATE CHAR. COUNTER 

86 

86 

86 

86 



87 
87 
88 
88 
88 
88 
89 
90 
91 
91 
91 
91 

92 
92 
92 
92 
92 
93 
93 



STORE PRESENT CHAR. 



BLANK GO ON READING 
TEST 19 

JUMP IF NOT ALPHA OR NUMB 
STORE LAST CHAR. 
SET CHAR. COUNT 



TYPE 1 EXIT 
CONSTRUCT NAME 



GO ON READ NEXT CHAR. 

LAST CHAR. IS F 

TEST FOR TYPE 9 OR 10 



JUMP TO TYPE I EXIT 



0599 
0600 
0601 
0602 
0603 
0604 
0605 
0605 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
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SUB 
J DC 
ADO 
SUB 
JOC 
Jl»« 
FP82 CAN 
JSB 
FIL 

FP83 CAM 
JSB 
FiL 
JPH 

FP84 SB« 
SFR 
LFR 
LOM 
S8M 
JUM 
ORH 
iUM 
JZH 
AOH 
JHM 

FP85A CALL 
TRA 

FP85 ANH 
AMN 
CAM 
EOH 
CRN 
ORM 
TRA 



FC18 

5,FP82 

FC18 

FC19 

5,FP83 

FN1,FP78A1 

F«l,9 

FH3,GRBACK 

F«l,FryP9 

FHl.lO 

FH3,&RBACK 

FMl.FfV^PlO 

F«6t5* 

2,FV9 

7,FV9 

FMi2,FT2<-FM10*l 

FM0,28 

FM0,FP86 

Fm2,# 

FH6,FP85 

FM7,FP85A 

PUT, 3 

FHTtFP85 

GREAD 

2,FP86 

12,-9 

12.1 



0,1 

QrlO 

12 

FP85A 



JUMP FOR IFeSENSE L 



JUMP FOR IFCSEMSE S. 
JUMP TO TYPE I EXIT 



TYPE 9 FIRT EXIT 



TYPE 10 FIRST EXIT 

94 CHECK FOR TERMINAL F 



98 



C 



CHECK FOR 
GET LINK 
SET MARK FOR C 
94 LAST CHAR. MOT F JUMP 
7 CHARACTER NAME IN FUNCTION K 
96 
96 NAME LESS THEN 4 CHARS. 



REMOVE X BIT 



0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 

Q&43 
0644 
0645 

0647 

0656 
0657 
0658 
0659 
0660 
0648 

0650 
0651 

0662 
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FP86 ADM 
AMH 
E0« 
SFR 
LDM 
JLH 

FP87 SFR 
CAM 
CAM 
CAM 
CAD 
STC 
STU 

FP87A1 LFR 
CRM 
ANH 
CSM 
JZM 
CJZ 
CJU 
CAM 
TRA 

FP88A CJZ 
TRA 

FP89 CAD 
ADD 
MPY 
CRM 
ANM 
ADD 
STC 
STU 
ADM 
JZM 



FM0.28 

FM15,8064 

12 8 

7,FT2+FM10+l 

FM3,FV3 

FM3 

4tFV3 

FM2tO 

FM7,0 

FMX9,0 

9 » 3 , 

FV7 

FV8 

7,FT6+FM0 

FM12,10 

FM12,7 

3 

3fFP90 

3,FP89 

3.FP88A 

FMX9,l 

FP90 

3,FP91 

FP98 

FV7 

FV8 

9»3f 10 

FM15,7 

FM15,63 

9,3,FM15 

FV7 

FV8 

FM2,l 

FMX9,FP90 



INVERT X MARK 

PUT NAME IN STATE. BUF. 

RESTORE LINK 

EXIT NAME SUBROJTINE 

99 BEGIN NUMBER SUBROUTINE 

100 INITIATE DIGIT COUNTER 

101 INITIATE DIGIT AFTER . COUNTER 

102 SET DECIMAL POINT MARK 
103 



104 

104 



BLANK 
NUMBER 



PERIOD 

E 

PTHER 



105 
105 
105 



106 
107 



TEST 20 



06S3 
0654 

0655 
0665 
0667 
0658 
0659 
0670 
0671 
0672 
0673 
0674 
0675 
0676 



INCREASE DIGIT COUNT 
NO DECIMAL POINT JUMP 



0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
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A DM 


FH7,1 


FP90 


JSB 
FIL 


FM3,GREAD 




JNM 


FM0,FP98 




JPH 


F«0,FP87A1 


FP91 


CAH 


FMI,1 


FP9UI 


JSB 
FIL 


FH3,GREAD 




JNH 


FN0,FP78A1 




LFR 


7,FT6*FM0 




CRH 


FH12,10 




ANN 


FNI2,7 




CSM 


3 




JZ« 


3,FP9lAl 




CJZ 


3,FP93 




CJZ 


3,FTyPl 




CJZ 


3,FTYP1 




CJZ 


3,FP91Al 




CJU 


3tFTYPl 




CSM 


F»l,l 




TRA 


FP91A1 


FP93 


CRN 


FM15,? 




ANM 


FH15,63 




CAO 


9,3,FH15 




STC 


F3 


FP93A1 


JSB 
FIL 


FM3iGREAD 




JNM 


FH0,FP94A4 




LFR 


7»FT64.FM0 




CRM 


FM12,10 




ANN 


FH12,7 




CSM 


3 




JZN 


3,FP93Al 




CJZ 


3,FP94Al 
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INCREASE DIGIT AFTER 



COUNT 



EXPONENTIATION «ARK 



BLANK 

NUMBER 

PERIOD 

E 

♦ 

OTHER 
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0727 

0731 
0732 
0733 
0734 
0735 
0736 
0737 
0738 
0739 



BLANK 
NUMBER 





CJZ 


3,FTYP1 


PERIOD 




CJZ 


3,FrYPl 
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TRA 


FP94A4 






JPM 


FM12fFP94A4 




FP94AI 


CRM 


FM15,7 






ANH 


FH15,63 






CAD 


F3 






MPY 


9,3,10 






ADO 


9,3,FM15 






STC 


F3 






JSB 


FM3,GREAD 






FIL 






FP94A4 


SFR 


4,FVA1 






CAO 


F3 






JPB 


FM1,FP94A3 






CS8 
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FP94A3 


SUB 


9»3,FM7 




FP94A2 


SIF 


FF2 
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CAO 
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FM12,1 






JPM 


FM12,FP96A1 






MPY 


FG9+5+FM0 




FP96AI 


CJU 


FM0,FP96 






SFR 


2,FV9 






LFR 


7,FV9 






STR 


FP2 






CAO 


FV7 






ADD 


FV8 






JNM 


FM12,FP97 






MPY 


FF2 





COMPUTE EXPONENT 

STORE EXP. 

JUMP IF POSITIVE 

STORE ABS( EXPONENT J 
CONSTRUCT THE VALUE OF 



STORE VALUE OF EXPONENT IN F2 
GET THE ORIGINAL f^UMBER IN AC 

JUMP IF NEGATIVE EXPONENT 
HERE IF POSITIVE EXPONENT 



0751 
0756 
0757 
0758 
0759 
0750 
0751 
0762 
0753 
0764 
0765 
0766 
0757 
0758 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0735 
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OIV 


FF2 


FP97A2 


STR 


FF7 


FP97A5 


CAM 


1»C0NST 




CALL 


STABLE 




JPH 


FM0,FP97A3 




CALL 


GENTAB 


FP97A3 


JZH 


FHX9»FP97A4 




CAN 


FM0,4097 




JUH 


FMX9fFP97Ai 


FP97A4 
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FIL 


FM0f#096 


FP97A1 


SFR 


4,FT2+FM10+ 
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TRA 


FP97AI 


FPlOl 
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GREAO 




JIH 


FHO.FPIOI 




JNN 


FM0rFP34 


FP102 


CALL 


GREAO 



STORE NUMBER IM F7 
ENTRY FOR CONSTANT SEARCH 

JUMP IF FOUND 

ENTER CON. IN TAB- IF NOT FOUND 
JUMP IF FIXED POINT NO. 
INSERT FLOATING POINT NO. MARK 

INSERT FIXED POINT NO.MARK 

PUT NO. IN STATE. BUF 



RETURN 



GET NEG.OF NO.OF DIGITS AFTER 
GO TO CONSTRUCT EXPONENT 
CHECK TOTAL NO.OF DIGITS 
JUMP IF LESS THEN 6 



NO'S. WITH LESS THEN 6 DIGITS 



READ T 

TO TYPE 1 IF EOS 
READ 



0786 
0787 
0788 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 
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0805 

0806 

0807 

0808 
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0817 
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TO TYPE 1 IF EOS 
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0823 
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0878 
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0885 
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S,T 
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0901 
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0903 
0904 
0905 
0906 
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0911 
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0915 
0916 
0918 
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FC2 

Fca 

FC4 
FC5 
FC6 
FC7 
FC8 
FG9 



FC15 
FC16 
FC17 



OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 
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OCTQ 

OCTQ 
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OCTQ 
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OCTQ 
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OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

FIL 
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FIL 

JSB 



125729 11474,4500, 2200, 14132, 7474, 4500,4700 

14132,7474,4500,5100,14132,7674,4500,5300 

14132,7774,4500,5500,14132,7574,4000,5700 

14532,7475,4560,6106,14532,7474,4510,6320 

14532,7474,2500,6500,14532,7454,4533,6701 

14632, 1474, 4500,, 14632, 1474,4500, 

14572,11474,4500,2400,14632,1474,4500, 

14632, 1474,4500,, 14632, 1474,4500, 

10572, 11474s 4500, 2000, 14532, 7414, 1502, 2504 

14532,7474,4503,2700,14532,7474,4506,3140 



0934 




14632, 1474, 4500,, 4472, 11474, 4500, 14000 

14573, 11474,4500,400 

10002,,, 

1Q003,,, 

10013,,, 

0,t > 

1551,12462,6123,7026 

0,31,16143,10626 

10003,,, 42 00 

0,, ,17720 

05000,,, 2 

03100,,, 4 

04704,,, 7 

02765, 16040,, 16 

04341.13623,07001,33 

0,,, 

0,122,, 

FM12,FP101 

FH3,FP77 
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M,N 
0,P 
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+ ,A 
B,C 
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H,I 
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09*t0 
0941 
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0947 
0948 
0949 
0950 
0951 
0952 
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0954 
0955 
0956 
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0953 
0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
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SENSE L 
SENSE S 

BOOLEAN DOUBLE PRECIS lOi^ SWITCH 



FIL 

FC18 OCTQ 0,6314,3266,3226 

FC19 OCTQ 0,6314,3266,5026 

E 8SS 4 

GRBOSW BSS 1 

ZERO BSS I 

ASSIGN GLTl,GLT2,GLT3,GLT4 

GLCl DECQ -1, GRASS, -4, -2 FIRST COUNT HOR0, NO TO N3 

GLC2 OECQ -l,-l,GRPRBF,GRCOBF 

FIL 

6RE0F LFR 7rH9-l 

QRM 14,4096 

CAM 7,GRCD8F 

TRA GRD30 

GRE0F2 CHR 48, »»•••••»•«•• gfiD CARD MISSING •••*•••«»•*• 

CHR 48, •••»*♦»*»»»»•»•»»»»«»»♦•»»»»»»»« 

BSS 5 

GREOFl CALL SYSIO 

DECQ MRITE*2,GRE0F2,0,0 

TRA 2,FTyi+9 

GREAO SFR 6,GLT2 

SFR 7,GLTl 

LFR 6, GLCl 

GRD4 LFR 7,M9 

CJl 8,GRD3 

ORB 10,, 

CAM 0,1112 

CRM 0,6 

CJU ll.GRDI 

CRM 0,7 

CAM II, »2 

CJZ 10,SR02 

GROl ANM 0,63 

GRD6 SFR 6, GLCl 



START OF SUBROUTINE 

LOAD FIRST COUNT WORD 
LOAD CARD IMAGE WORD 
TEST FOR END OF CARD 
EXTRACT QUARTER WORD 



TEST WHICH HALF 

RESET N 3 

INCREMENT QUARTER COUNT 

EXTRACT CHARACTER 



0968 
0969 
0970 
0971 
0972 
0973 
0974 
097 5 



0977 
09T8 
0979 

09ao 

0981 
0982 
0933 
0934 
0985 
0986 
0987 
0988 
0989 
0990 
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LFR 
4LH 

GR02 CAM 
CJU 

GR03 JNM 
CAH 
CAM 
CJU 

GR05 JNM 
ORM 
CAM 
CAH 
SFR 
TRA 

GROT J MM 
SFR 
SFR 
CAM 
LFR 
CAM 
ATN 
CAO 
CALL 
SAM 

GR09 CAM 
FLO 
CAO 
SAM 
SAM 
CJF 

GR028 CAM 
CALL 
DECQ 



6,GLT2 

7,SLTl 

3,, 

10,-4 

9.GR01 

12,GR05 

8t-67 

10,^1 

9,GR04 

13,GRD7 

13,4096 

8,-1 

0,4096 

7,M9 

GR06 

14,GRE0F1 

4,SLT4 

5,GLT3 

9, GRASS 

5,GLG2 

0,-11 

5,1, 

1. 

GOECVT 

SRPR9F+14 

3,t10 



EXIT 

RESET QUARTER COUNT 

AND INCREMENT WORD COUNT 

TEST FOR NO CONTINUE CARO 

RESET N0,Nl,N2, AND N3 

JUMP 

TEST FOR PREVIOUS ENTRY AT THIS POINT 

SET PREVIOUS ENTRY SWITCH 



RESET Nl 

INCREMENT RUNNING CARO COUNT 

AND PRINT IN CARO 

COPY CARO TO PRINT BUFFER 



7,1, 

9,1, 

6,1, 

3,0 

7,GRC0BF 

SYS 10 PRINT CARDS 

WRITE+2,GRPRBF-1,0,0 



0991 


0992 


0993 


0994 


0995 


0996 


0997 


0998 


0999 


1000 


1001 


1002 


1003 


1034 


10Q5 


1007 


1008 


1009 
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1013 
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1015 
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1020 



1024 
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CAM 
CALL 
DECQ 
GR08 LFR 
AHN 
CAM 

Jin 

ANN 

JZ« 

A OH 

JZM 

CJU 

CM 

CALL 

GROIO LFR 

GR030 ORM 

SFR 

LFR 

ANN 

CAM 

CAO 

CAM 

CAM 

CAM 

CAM 

J2M 

ADM 

JZM 

AOM 

MH 

AOM 

JUM 

LFR 

CAM 



6,GRPR8F 

SYSIO 

3,GRCDBF 

T,M7 

12.64»63 

1,-51 •64 

ltGR027 

14^63 

14,&R010 

14,-10 

14,GRD10 

0,GR09 

l,EEt6 

GERROR 

7,M9-l 

12,4096 

7,M9-1 

7, GRASS 

12, 63*64 

I 

0. 

8,-4 

10,-4 

9 

11,-1 

1»GR013 

l,-52»64 

1,GR012 

1,128 

1,GR011 

l,-4»64 

1,&R015 

4,SLT4 

0,-1 



RESET PRIHT BUFFER 

tGREOF,GREOF 

LOAD COLUMNS I » 8 OF MEXT CARD 
EXTRACT COLUMN U 
INTO Ml 

OR C IN COL. I 

COL. 6 BLANK 

OR ZERO 

TEST FOR LESS THAN 11 CARDS 

TOO MANY CARDS 

SET LAST CARD IN CONTINUE SEQUENCE 



GET FIRST CARD 
EXTRACT COLUMN I 
PREPARE 8/0 S«IRCH 
PREPARE LABEL ACCUMULATION 
SET COLUMN COUNT FOR LOPO 

8/D SWITVH 

COLl. BLANK 

D CARD 

B CARD 

OTHER 

OR F CARD, SET MP EXIT 



1026 
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1031 
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1034 
1035 
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IQ45 
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1052 
1053 
1054 
1055 
1056 
1057 



w 


^Xl 


m 


O 


fD 


P> 


a> 


P 


<i 


TO 


n 


ci- 


H- 


fD 


c+ 


n> 


M 


• " 


H- 


• • 


H- 




O 




O 




13 




• • 










uo CO -J 




o 


• 


^^v^ 






VJI 


ro 




o 


• 


-ci 




1-*) 


H 










^ 




uo 


H 


-p- 




VJI 







GR014 


SFR 


5,GLC2 


RESTORE N4 - M7 




LFR 


5,GLT3 




GRD31 


CAM 


8,-67 






CAM 


9, GRASS 






CAM 


10,-1 






CAM 


11,-2 






TRA 


GR06 


GO TO EXIT 


GRDll 


CAM 


9,4095 


SHITVH TO 8 


GR012 


ADM 


9,1 


OR TO Q 


GR013 


ORB 


10,, 


SWITCH L&FT BLANK 




CAM 


1,M12 


EXTRACT CHARACTER 




CJZ 


11,6RD25 


HALF TEST 




CRM 


1,6 




GR026 


ANM 


1,63 


EXTRACT CHARACTER 




JUM 


1,GRD16 


MON BLANK CHAR. 




CJU 


8,GR013 


COUNT AND TEST 


GRD24 


LFR 


4,GLT4 






CAM 





NO LABEL EXIT SET 


GR020 


SFR 


6,GRB0SW 






TRA 


GRD14 




GR015 


A DM 


1,54*64 






CRM 


1,6 






ADM 


8,-1 




GRD16 


AOM 


1,-11 


TEST FOR NUMBER 




JPM 


1,GR023 


NO 




CJU 


1,GR017 


IS IT ZERO 




AOM 


1,-10 


CORRECT CODE 


GR017 


HPY 


10. 


FORM LABEL 




ADD 


10+Mlo 






TRA 


SR019 




GR018 


ORB 


10., 


EXTRACT CHAR. 




CAM 


l,M12 






CJI 


ll,GRD21 


HALF TEST 




CRM 


1,6 
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Ga022 


ANH 


1»63 




JUH 


1.GR016 


GR019 


CJU 


StGROlS 




LFR 


4,GLT4 




CAM 


0,4096 




TRA 


GRD20 


GR021 


CAH 


U,-2 




CJU 


10,GR022 


GRD23 


CAH 


l,EE+5 




CALL 


GERROR 




TRA 


GR024 


6R025 


CAM 


11.^2 




CJU 


1Q,&R026 


GR02T 


CAH 
FLO 


3t-10 




CAD 


7,1. 




SAM 


6,1, 




CJF 


3,0 




LFR 


7,ZER0 




SFR 


7,6RPRBF+14 




TRA 


GR028 


GRBACK 


SFR 


6,GLT2 




SFR 


T.GLTl 




LFR 


6,GLC1 




LFR 


7»H9 - 




ANH 


13,4095 




SFR 


7»H9 




TRA 


GRD31 


GTABLE 


SFR 


5,GTA8T1 




LFR 


2,H1+1 




LFR 


5, HI 




CAD 


F7 




AND 


F2 




SAM 


F3 



NOT BLANK 



LABEL PRESENT EXIT SET UP 



ILLEGAL CHARACTER IN COL. 1-5 



COPY COMMENT CARD TO PRIMT BUFFER AND 
GO BAR FOR NEXT CARD 



GO BACK TO 8EGINING OF SEQUENCE 



TABLE LOOK UP 
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CAM 0,M6 

GTA82 LF8 5,H4^ 

TRA 2,GTABl 

GTABl TZ GTAB3 

CAO 6,1. 

AND F2 

SUB F3 

CJU 5, GTABl 

GTA86 JUM 4,GTAB2 

CAM 0,A096 

GTA84 LFR S.GTABTl 

tlLH 3f f 

GTAB3 CAM 2»M6-1 

LFR 7tM2 

CAM Q 

TRA GTAB4 

GENTAB SFR SsGTABTl 

SFR 6,GTABTl+l 

LFR 5, Ml 

LPR 6tH4 

ADM 9.256 

JIM 9,SENT2 

AOM 9,-257 

AOM 10, -»1 

GENTl SFR 6,M4 

CAD F7 

SAM MIO 

CAM 2,M10+Mll 

LFR 5,STABTl 

LFR 6,&TA6T1+1 

JLH 3b, 

GENT2 LFR 6,6MAST 

CJZ 9,S£MT4 

CAM 2,M4 



MATCH 



EXIT 



TABLE ENTRY 



OUT OF SPACE IN THIS BLOCK 



INTERNAL NAME 

EXIT 

NO MORE BLOCKS AVAILABLE 



1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1135 
1137 
1138 
1139 



1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
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CQ 
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(D 


03 
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<! 
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03 


ao 


H- 
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a 
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vn 
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a 
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Hi 


H 








o 


OA 




OO 


H 
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CAN 


4tM8 






SFR 


5, Ml 






LOM 


8«M4 






SFR 


6.GMAST 






LFR 


6tM4 






CAM 


8,M2 






CAM 


lGtM4*256 






TRA 


GEMTl 




GENT4 


CAM 


ItGROTMB 






CALL 


SYSERR 




GTABTl 


BSS 


2 




START 


CALL 


SYSIO 






OECQ 


REAOtGRCOBFrOtBCO 




TRA 


FPl 






FIL 






GOECVT 


SFR 


4,SDECV1 






SFR 


5,G0ECV1+1 






ADD 


10,3,2048 






OIV 


100. 






CAM 


7 






CAH 


4 






OIV 


100. 






CSM 


1,3 






CSH 


2,1 




G0ECy2 


SIA 









SUB 


MO. 






JIM 


7,G0ECV3 






JUM 


0,G0ECV3 






CAM 


0,10 




G0ECV3 


CJZ 


2,GOECV5 






CAM 


5,M6 






CAM 


6.M7 






CAM 


7, MO 




GDECV^ 


HPY 


10. 





UPDATE TABLE CONTROL 
UPDATE TABLES MASTER 



1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 

1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
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TRA 


S0ECV2 


G0ECV5 


CRH 


7,1 




AOM 


7,«0 




CSM 


2,2 




CJU 


1,GDECV4 




CAD 


F5 




LFR 


4,GDECyi 




LFR 


5,G0ECVl+l 




JLH 


H3 


GOECVl 


BSS 


2 


WRITE 


EQUS 


512 


FV13 


BSS 


1 




GQ 






1197 
1198 
1199 
1200 
12QI 
1202 
1203 
1204 
1205 
1206 
1207 
1211 



S3 


hd 


CD 


t:) 


(B 


fB 


CD 


?D 


<; 
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3.5.3 Fortran Fart 3. Arithm.etic Section 

This section handles the statements: 

Arithmetic assignment statement 

Arithmetic function statement 

IF (Arithmetic expression) 

CALL (Expression 1, ..., Expression N) 

FUNCTION 

SUBROUTINE 

RETURN 

END 

F CARD 

The first four of these statement utilize the arithmetic calculation section 
which scans an expression from left to right, compiling as it goes. The 
remaining statements modify tables, set up lists or use them, and compile the 
necessary linkage orders. 

Subprogram links are always compiled as a 

JSB 3, SUBROUTINE 

FIL 

DECQ Parameter list 



program. Depending on the nature of the parameters the items in the parameter 
list are addresses of variables, base addresses of arrays or addresses of 
transfer vectors. The return from an arithmetic function statement or from a 
FUNCTION subroutine is made with the result in the accumulator. 
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3.5,3.1 The Arithmetic Statement Scan 

The scan proceeds from left to right constructing a control stack 
as it goes. Consecutive operations are compared according to the usual rules 
of precedence : 

(End of Statement, Comma, ), and [Indexing, Functions and (] on 
the left of a pair of operands} 

(+ -} 
{* /} 
{** ) 
(Indexing, Functions and ( on the right of a pair of operands] 

If the comparison shows that the right-hand operation is the more powerful, 
then it is added to the top of the control stack with a PUSH, otherwise the 
operation at the top of the control stack is "executed," i.e., compiled„ This 
is mechanized hy coding the "input," l»-e., the right-hand, operator and the 
"stack," i.e., the left hand, operators numerically according to Table 3°5«3»lAo 

At any instant the control stack contains those operators not yet 
compiled in the reverse order of the left-to-right scanning order. The least 
significant two bits of numerical codes of the input and the top of the stack 
are set to 0, and then the codes are compared. The numerically larger has the 
higher precedence. The same rules are stated in matrix form in Table 3=5=3°lBo 

Each operand is also put in control stack along with the left -most of 
its right-hand operators which have not yet been "executed." When the combina- 
tion NAME( is sensed, both the name and either the operator "Function" or "index" 
are added to the control stack accordingly as NAME has not or has been 
Dimensioned. 

During the scan of an arithmetic function, every simple variable is 
compared with a sublist of dummy parameters. If it appears In this sublist, 
an entry is made in the control stack which indicates the matching member of 
the list. Such variables are not entered in the VARIAB table. 
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Table 3"5»3»1A. Input and Stack Codes for Operators 



Operator 


Input 


Stack 


EOS 





-- 


) 


1 


__ 


> 


2 


— 


= 


-- 





IF 


__ 


1 


Arithmetic Function 


— 


2 


CAT,T, 


-- 


3 


( 


24 


8 


Index 


-- 


9 


Function 


— 


10 


+ 


12 


12 


- 


13 


13 


■Sf- 


16 


16 


/ 


17 


17 


*# 


20 


20 


Incompletely calculated 
indexed address 


-- 


24 


BEGINNING OF STATEMENT ! -- 
i. 


-h 



Table 3,5.3olB 
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^^-•^.„_^^ Input 
Stack^~-\,,____^ 


EOS 


) 


} 


+ - 


V 


•x-x- 


( 


Arithmetic 
Function 


E 


K 




S 


S 


S 


S 


IF 




E 




S 


S 


S 


s 


CALL 




E 


E 


s 


s 


S 


s 


( 




E 


X 


s 


s 


s 


s 


Index 




E 


E 


S 


s 


s 


s 


Function 




E 


E 


s 


S 


s 


s 


+ - 


E 


E 


E 


E 


s 


s 


s 


*/ 


E 


E 


E 


E 


E 


s 


s 


** 


E 


E 


E 


E 


E 


E 


s 



E means Execute » 

S means "Stack" on top of control stack. 



X means "Error .. " 
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When a variable is indexed, it is handled in one of three ways. If 
the index is fixed, then the "relocation" to be added to the location of the 
(1,1,1) element of the array is calculated, and the operand entry in the stack 
is set to Dimension. A pointer is placed in the stack which Indicates the 
location of a word containing the name and the relocation amount. If the index 
contains variables (it may contain arbitrary expressions) then, after the ")" 
operation, the accumulator contains a number which must be added to the address, 
also. If this occurs on the left-hand side of an assignment statement, then 
the order sequence 

SIA MO 
SAM TEMP 

is compiled. This has the effect of shifting the accumulator so that it is in 
a position to be reloaded into F6 from TEMP, at which time M8 can be added to 
the address of the store order to be compiled. 

If the index contains variables and is on the right-hand side of an 
assignment statement, then the sequence 

SIA MO 
CAD MO+A+R 

is compiled, where A is the name and R is the relocation. 

When an arithmetic operation is "executed," the answer is typically 
in the accumulator. Therefore a mark (4096) is set in the operand part of the 
control stack to indicate this. If, when this happens, the accumulator is 
already in use (that is, there is another accumulator mark lower down in the 
control stack), it is obvious that a store into a temporary location must be 
performed. For example, when C •* D must be "executed" in the expression 

A * B + C * D, 

the result A * B must be saved, viz.. 
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CAD 


A 






MPY 


B 






STR 


T 






CAD 


C 






MPY 


D 






ADD 


T 







To make this automatic, the following mechanism is used. A temporary storage 
location counter HTMP is initially set to -1. Each time that a word must he 
fetched into the accumulator, this count is increased by one. If it is nonzero 
after being incremented, an STR "T+HTMP" is compiled, where "T+HTMP" is a 
temporary storage address that is different for each value of HTMP, When a 
result is to be added (or divided, etc.) into the accumulator, as for example, 
after C * D has been formed above, HTMP is decreased by one, and the address 
"T+HTMP" is constructed once again. Thus there is a stack, at execution time, 
of intermediate results that have been pushed out of the accumulator. 

The above section of the compilation process is handled by the 
subroutine HCOMP. Entry to this subroutine is made with the order bits for 
the desired order in MO and the operand code and additional information in Ml 
and M2 . If the operation is a CAD or CSB and Ml indicates that the operand 
is in the accumulator, the operation is ignored or an STN FO is compiled 
respectively. However, if Ml indicates that the operand is not in the accumulator 
in the case of a CAD or CSB, HTMP is increased by one, and an STR is compiled if 
necessary, (The store compilation is handled by the subroutine HCOMPS.) 

If the operation is not a CAD/cSB and the operand is marked 
"Accumulator," then it must be in the top of the accumulator stack. Therefore 
HTMP is decreased by one and the address "T+HTMP" is located. 

The rules are shown in Table 3.5.3-lC, 
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Table 3.5.3.IC 



^~~~~"~~--— ..Operation is 
Operand is "~" 


cad/csb 


Other 


Accumulator 


Do nothing/ STWO, 3 


HTMP - 1 -* HTMP 
Compile OP T+HTMP 


Not Accumulator 


HTMP+1 -* HIMP 
(Compile STR) 
Compile CAD/CSB 


Compile OP Operand 



Using this mechanism^ the binary operations +, -, * and / are 
handled by asking HCOMP to compile a CAD of one operation followed by an ADD^ 
SUB, MPY or DIV of the other. A test is made so that cases like A + B * C 
do not result in: 

CAD B 

MPY C 

STR T 

CAD A 

ADD T 



If the right-hand member of a pair of operands is in the accumulator 
stack at the start, then it is CADded into the accumulator, and the operation 
is performed on the other (in which case a DIV becomes a VID) . Otherwise the 
left-hand member is first CADded into the stack. 

In the implementation, the top level of the stack remains in f6, and 
the input operand and its following operation are assembled into F7, Their 
formats are shown in Fig. 3. 5= 3-1 and Table 3.5'3'ID. 
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QO 



Operator Code Operand Code 



Ql 



02 



Q3 



Li = 



Floating 
Point 



-Used as a count in 
function calls and 
indexing 

■ Additional information about 
the operand 



The operator is the next one that has not yet been compiled after the 
operand in Ql, Q2 and Q3. 

Figure 3.5-3.1. Stack and Input Format 



Table 3. 5. 3. ID. Input and Stack Codes for Operands in Ql 






Empty 


1+096 


Accumulator 


1 


Small number (< I+O96). In Qg 


2 


Variable. Name in Q2 


3 


Dummy. (Used in arithmetic function statements only.) Q2 contains the 
"number" of the dumm.y, that is, its position in the CALL sequence, 
being the first. 


k 


Dimensioned variable. 02 contains a "list" address. In the indicated 
list word is 

00 Ql 02 Q3 


Number Name of Var 


The address in case k is the location of the NAME in quarter 2 plus the 
number is quarter 1. 



Date: 


l/2k/ek 


Section: 


3.5.3.1 


Page: 


8 of 8 


Revision: 





During the arithmetic scan modifiers k through 7 contain the 
following information: 

Mil- Contains the address of next free word of CjZ5UT buffer 

M5 Contains the address of next atom from input buffer 

M6 Contains 0, unless an arithmetic function statement is being compiled, 
in which case it contains the number of dummy variables which are in a 
list in store. All simple variable names must be compared against this 
list. 

M7 Contains the address of the location in store where top of stack now in 
P6 will be stored at the next PUSH operation. 
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3.5,3.1.1 Indexed Variables 

When a variable followed "by a left parenthesis is read, it is looked 
up in the dimension table. If it is not there it is entered as a function; 
otherwise its type is examined. Functions are dealt with in section 3.5,3.1.2 
below. If it is a dimensioned variable, it is placed in the input area and the 
operator "index" is also placed in the input, A PUSH then moves the input to 
the top of the stack and scanning resumes. Because all operations except comma 
and ) have higher priority then index, any expression is calculated before 
"Index" is obeyed. When a comma or ) is read the top of the stack will contain 
information about the index value. If the operation Just read is a comma, a 
SWAP at the top two levels of the stack is performed and a count (in Q3 of the 
top level of the stack) is incremented by one. Thus each index quantity 
appears in the stack below the entry "index," 

When the final ) is read, further compilation of the address begins. 
This is done by scanning back through the entries In the stack to compile any 
necessary MPY's and ADD's on Accumulator or Variable entries. Entries which 
are fixed-point numbers are dealt with at execution time. The result is a 
variable name (the base address of the variabe), a relocation amount and an 
optional indication that the contents of the accumulator are to be added to the 
address. If needed, this addition is not yet compiled, rather code 2h, meaning 
"Incomplete Dimension," is placed in the stack on top of an entry indicating 
the name and relocation amount. 

Because code 2k is larger than any input code, it will be "executed" 
immediately after the next operation is read. If the next operation is = then 

SIA MO 
SAM "T-1" 

is compiled; otherwise 

SIA MO 
GAD MO+A+R 

is compiled where A is the base address and R is the relocation amount. 
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If the accumulator contents do not have to be added to the address, 
the variable left in the input area is of "Dimension" type, Q2 of the input 
(i.e., WLk) contains the address of a word which contains the base address and 
relocation in Qg and Ql respectively. 



Example 

If the sequence . . .A(3*I,2)+. . . is read where A has been dimensioned 
by A(10,5) the following will be the successive states of the control stack: 



After Reading A( 

After Reading 3* 
After PUSH 

After Reading I, 



After Executing ■**■ 
"compiles (STR "t")' 

CAD 3. 

MPY I 



After executing Index - ; 

After reading 2) 

After executing Index 
where List entry is A, 9 





Operand 




1 Operation 


/ F7 
\ F6 



DIM,0 


A 


' Index 


F7 

f6 


# 
DIM,0 


3 

A 


1 Index 


F7 

f6 
(M7-1) 




# 
DIM,0 


3 

A 


* 
Index 


F7 
f6 

(M7-1) 


VARIAB 

# 
DIM,0 


I 

3 

A 


* 
Index 


F7 
f6 


Accumulat 
DIM,0 


or 

A 


Index 


F7 

f6 

(M7-1) 




DIM,1 
Accumulat 


A 
or 


Index 


F7 

f6 

(M7-1) 


T '.^ 

DIM,1 A 
Accumulator 


) 
Index 


r7 
f6 


DIM LIST 




___ 


Incomplete Dimension 
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Operand I Operation 
L 

After reading + FY ' + 

F6 dim list ' Incomplete Dimension 

After executing "incomplete Dimension" F? Acciomulator j + 

fCompiles SIA MO 1 F6 

|_ CAD MO+A+9J I 
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3,5.3.1.2 Function Calls 

Function calls are processed in a similar manner to the processing 
of indexing up to the point that the pair [Function, )} is executed. The only 
modification is that if, when {Function, comma] is executed, the input operand 
is "Dummy" or "Dimension," then a CAD of the input operand is compiled first. 
This is done because the result of the compilation will finally be a DECQ 
with addresses in successive quarter words in which indexing is not allowed. 

When the {Function, )} pair is executed, a CALL of the function name 
is compiled. (Pass 2 of Fortran will take case of producing suitable transfer 
vectors.) If there are any parameters, a DECQ is them compiled. Quarter words 
are generated by scanning from the first parameters in the stack up to the top. 

Because "Accumulator" entries must cause appropriate temporary 
locations to be generated in the DECQ, HCOMPS is first called. It generates 
an STR if the accumulator is in use thus making space for the result that is 
returned from the function via the accumulator. Then the stack is scanned to 
determine the number of accumulator entries in the parameter list. From this 
number the name of the temporary locations can be determined from the bottom 
up. 

After the DECQ has been compiled, a FIL is compiled. 
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3,5.3.1.3 Exponentiation Generator 

If the exponent is a fixed-point number between 2 and 10, the 
exponentiation operator is handed by compiling a string of MPY's; otherwise it 
is handled by a function CALL of EXPFL or EXPFX as the exponent is floating 
point or fixed point respectively. 

A section of the function CALL generator is used to compile the 
program. This is done to save orders in the compiler. Because of it the 
case of a dummy variable raised to a power that involves accumulator calculation 
involves the compilation of an unnecessary XCH order. The case is rare and 
the saving in the compiler appreciable! 
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3»5»3«2 Arithmetic Function Statements 

When Part I determines that a statement is arithmetic. Part III 
examines the first atom to see if it is a name followed by a left parentehsis 
where the name is either not in the name tables, or else is in the DIMEN table 
as an undefined function. If this is so, the statement is an arithmetic 
function definitiono It is entered in the DIMEN table as a defined function 
and the parameter list is scanned. Names in the parameter list are counted and 
entered in a dummy list while Mb is incremented. When a right parenthesis has 
been read, the stack is Initialized with type 2 as the first operator. The 
program 

TRA T+1 
FIL 

TRA AFUN 

AFUN SFR h, T 

ATN M3 

CAM 2 

is compiled where T is a blank name entered in the name table. The purpose of 
the first transfer is to allow functions to appear anywhere. It transfers around 
the subprogram. The FIL and the second TRA are a "transfer vector" in case the 
program name AFUN is used as a parameter to another subprogram, SFR 4,T saves 
M3 should another function be called and ATN M3/CAM 2 moves M3 to M2 so that 
the dummy parameter following any CALL of AFUN can still be located after M3 
has been changed. 

During compilation of the arithmetic expression on the right, all 
simple variables are compared with the dummy list. If a match occurs, the 
variable is obtained by the sequence 

LFR 6, M2 + N 
CAD M[8 + a] 

where the parameter is the (4n + a)th in the list, numbering starting from 
and < a < 3, 
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When the End of Statement has "been processed, the orders 

HFR k,T 
JLH M3 + N + 1 
T BSS 1 



are compiled, where W = integer part of [one -quarter of the number of parameters 
~ 1]. 
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3.5.3.3 The IF Statement 

In the case of an IF statement, Part I, the statement recognizer, 
transfer initially to' Part II, the control section. Part II makes a subroutine 
CALL on the IF generator. It compiles program to place the value of the 
arithmetic expression in the accumulator, and then returns to the control 
section for further compilation of conditional transfers. 

In the Part III section, the IF is handled by initializing the stack 
and placing an operation "IF" (type code = l) in the stack. When a matching 
right parenthesis is sensed, the operand in the top of the stack is placed in 
the accumulator (at execution time) and a subroutine return is executed. 
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3.5.3.I1 The CALL Statement 

The first atom is read from the statement buffer. It should be either 
NAME or NAME( . In the former case, a CALL NAME is compiled and an immediate 
return to Part I is made. In the latter case the stack is initialized, then 
the sequence [operation CALL (type code = 3), operand NAME, operation FUNCTION 
(type code lO)] is added to the stack. The regular arithmetic scanning and 
compilation section now proceeds, producing a subroutine CALL just as for a 
function. When the operation pair {CALL, EOS} is sensed, exit is made to 
Part I. 
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3,5.3,5 FIMCTION and SUBROUTINE 

These statements are handled almost identically. The general form of 
a program for either is: 

Machine Language corresponds to Fortran 

Bi Bss 3 subroutine/function 

Program body Statements 

TRA K RETURN 

Program body Statements 

B2 LFR U,B1 END 

Copy parameters from subprogram 
to CALLing program 

LFR 5,B1 + 1 

LFR 6,B1 + 2 

(CAD FNWMl) 

JLH M3 

FN NAME SFR k, Bl 

SFR 5,B1 + 1 

SFR 6,B1 + 2 

Copy parameters from CALLing 
program to subprogram 

TRA Bl + 3 
Data Storage 

where Bl and B2 are two internally-generated blank names in the VARIAB table, 
FKNAME is the name of the function or subroutine (in the DIMEN table) and 
FNNMl is the same name in the VARIAB table. (It is used in the case of func- 
tions only. For subroutines, the order CAD FNNMl, is not compiled,) 

When, the SU^OUTINE or FUNCTION statement is compiled, the names Bl, 
B2 FNNAME (and FNNMl in the case of FUNCTION) are entered in the appropriate 
tables, and saved in location HEND C in quarters 02, 03^ QO (and Ql) 
respectively. The parameter list is then read and saved (without table look-up) 
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in a list in memory for processing by the END statement. A count of the numher 
of parameters is placed in the last quarter of HPRMC (it may be O) and finally 
Bl BSS 3 is compiled. Control is then returned to Part I. The rest of the 
task is described below under RETURN and END. 
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3.5.3.6 RETURN 

RETURN causes a transfer to the address B2 found in location HENDC 
(see FUNCTION) to be compiled. If this address is blank, then the RETURN 
occurred in a main program and the statement is illegal. 
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3.5.3=7 EI© 

END can cause more program, to be generated than any other statement! 
If it occurs in a main program^ a CALL SYSTEM is compiled, and an exit is made 
to Pass II, a clean-up of tables pass. However, if HENDC is nonblank, a sub- 
program is being compiled and the orders indicated in section 3.5.3.5 must be 
compiled „ 

The job of compiling the SFR's, LFR's, etc„, is straightforward and 
can be seen from the flow charts. The program to copy from a CALLing section 
to a subprogram and vice versa is generated by scanning the list of parameters 
one at a time. 

At the start of this task, and after every four parameters if there 
are still parameters to deal with, the orders 

ATN 3,1, 
LFR 5 

are compiled. This places in M4-M7 the addresses of the parameters from the 
CALL sequence of the CALLing program. 

If the parameter is a simple variable or function, the sequence 

CAD PARAM 
SAM MX 

is compiled where PARAM is the name of the parameter and X = ^, 5, 6 or 7, 
used in order. 

If the parameter is a dimensioned variable, say of size N, the 
program 
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CSM 


8,N 


CAM 


9,PARAM 


FLD 




GAD 


9,1, 


SAM 


X,l, 


CJF 


8 



is compiled. 



On the second scan, the addresses of the CAD and the SAM are swapped 
in order to copy in the other direction. After the final TRA Bl+3 has been 
compiled, exit is made to pass II. 
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3.5.3.8 F CARD 

The F CARD must "be used if a name that is not used directly as a 
function name in the program being compiled is to be placed in the transfer 
vector list. Typically this is required when a subroutine or function name is 
given as a parameter in another subprogram call. For example, if SQRT is the 
library Square Root routine, and is not used directly in a program, but a 

CALL ABCD(X,Y,SQRT) 



is written, then "F SORT" must appear in the deck. 

During compilation, the names on an F card are entered as undefined 
functions. They must appear on an F CARD before use. 
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3.5.3,9 Flow Charts 

Flow charts are attached below giving the detailed flow of Part III, 
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FORTRAN PART III 
RETURN, SUBROUTINE AND FUNCTION STATEMENTS (Cont'd) 
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FORTRAN PART III 
CALL, IF, ARITHMETIC AND ARITHMETIC FUNCTION INITIALIZATION 
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FORTRAN PART III 
CALL, IF, ARITHMETIC AND ARITHMETIC FUNCTION INITIALIZATION (Cont'd) 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION— STACK PREPARATION (Cont'd) 
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FORTRAN PART III 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION— GENERATOR** (Cont'd) 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION— GENERATOR** 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION- -FUNCTION/ SUBROUTINE CALL GENERATOR 
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FORTRM PART III 
ARITHMETIC CALCULATION SECTION- -GENERATORS FOR INDEXING 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION— GENERATORS FOR INDEXING (Cont'd) 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION— GENERATORS FOR INDEXING (Cont'd) 
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FORTRAN PART III 
ARITHMETIC CALCULATION SECTION- -SUBROUTINES 
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2.5.k Input. Output and Auxiliary Storage Statements in FORTRAN 
This section deals with the statements: 



FORMAT (...) 

READ #, I/O list 

WRITE #, l/O list 

PUWCH #, l/O list 

READ INPUT TAPE n, #, l/o list 

WRITE OUTPUT TAPE n, #, l/O list 

READ TAPE n, l/O list 

WRITE TAPE n, l/o list 

REWIND n 

END FILE n 

BACKSPACE n 

READ DRUM n, l/o list 

WRITE DRUM n, l/o list 
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3.5.i+,l General Description 
3.5,4.1.1 Fj^RMAT 

On entry to the F)25rMAT program, PSIG is checked. This word has 
the format 



13 



26 



39 



12 



B 12 



12 



If L is 0, the format statement has no label; therefore an error is recorded, 
and the statement is skipped. If L is nonzero, bit C is checked. If it is 
one, an error is recorded and the statement is skipped. If the label L is 
already in the label table, it is tested. Types and 1 are accepted, and 
made into type 1 (format label); otherwise an error is listed and the state- 
ment is skipped. If the label is not in the table, it is entered as type 1. 
If translation of the statement can proceed, a program of the form 

TRA L + n 
L CHR 8n, format * 



is assembled. The value of n is chosen to be the smallest integer at least as 
large as one-eight of the number of characters in the format statement. If 
this is larger than seven, the CHR is actually broken into several CHR's, each 
with- a maximum of % characters. The format statement differs from all other 
statements in that it uses GREAD directly rather than receiving data via the 
statement buffer. 
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3.5>^«1«2 Execution Subroutines for l/o 

Input-Output and Auxiliary storage are handled at execution time by 
the print/read/punch and the IjZ^LIST programs. These use SYSIjZJ and SYSAUX 
respectively for communication with tapes o 

The PRINT/reAD/pUNCH program is identical to that used in assembly 
language. It performs the necessary conversions of data. Output is converted 
and written on the system output tape of SYSIj6 and input is read from the 
system input tape by SYSI^ and converted. The conversion is done according 
to a format string of characters. At execution time the l/O list Is prepared 
and given to the I/O conversion program along with a format statement. The 
format determines the nature of the records read or written; they must, of 
course, be compatible with the device being used (80 columns for cards, 133 
for printer) . 

The I0LIST program plays the part of the l/O conversion program in 
the case of statements like "READ TAPE n, l/o list." An l/o list is prepared 
in a manner identical to that used in "PRINT 7, l/O list" and given to the 
IJZ5lIST program. This takes the items off the tape and puts them in the 
appropriate memory cells (READ) or moves the items from the cells to tape 
(write). Since these must be contiguous in memory at the time of tape motion, 
a 256-word buffer is used. Because the l/O list can contain more than 256 
words, one Read or Write Tape statement can cause several records to be read 
or written. The set of data words moved in one such statement will be referred 
to as a block. It is written on the tape with a maximum of 255 words per 
records in the format shown in Fig, 3.5 oU, 1.3. 

The execution subroutines are used by CALLlng them with Ml containing 
an address of an l/o list. Programs compiled by FORTRAN will limit this list 
to a maximum of ten words. Larger lists are handled by CALLlng the subroutines 
several times. The format of the list is described in detail in Chapters 5 
and 8 of the ILLIAC II Manual In the description of READ and Ij6lIST. Briefly, 
it has the form 
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11 



13 



13 



13 



■-Format address 
(READ, etc.) or 
Tape number (IjzJlisT) 
used on first CALL 
only 

I — Number of words 

' — First word address 



= Input 
lOOOg = Output 
2040g = Rewind 
2O5O0 = Backspace 
2120g = End File 



"— = Final word of final call 

1 = Final word of nonfinal call 

2 = More words to come 



Control Code 



The top two bits are used to determine the length of the list and the number 
of CALLS required except in control operations, when they are not used. For 
example, if the I50 words in location Al to Al + 9, A2 to A2 + 9, ..., AI5 to 
AI5 + 9 are to be read from tape 7 by READ TAPE 7, Al, A2, . . ., AI5 a FORTRAN 
compiled program would execute the following program (assuming that Al, A2 
o.„, AI5 have been dimensioned to be ten element vectors); 
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LIST is a "block of ten words in memory. 
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Record 1 



255 words of data in reverse order 

/- 





1 








w 255 



W 1 



Record 2 



2 



W 510 



w 256 



Record N 





N 







V. 



w((w - 1)255 + 1 



^v^ 



^ 



< 255 words 
> 1 word 



in reverse order 



-256 + number of data words in last record 



Figure 3.5.i|-.1.3, Format of FORTRAN Block on Tape 
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3.5.i|„lo3 Compilation of First LIST Word 

The data move operations involve an I/O list which is independent of 
the particular operation involved. Recompilation of the list is discussed 
helow. First we examine the differences between the operations prior to the 
start of the list compile. 

The cases are handled as follows : 



READ DRUM 
WRITE DRUM 

READ n 
PRINT n 
PUNCH n 



READ INPUT TAPE x, n 
WRITE OUTPUT TAPE x, n. 



READ TAPE x^ 



Where n is a number < 32,76? and > 1„ 
An internal name FRM (n) is found for 
the format statement number n and CAM 11, 
FRM (n) is compiled. The program to be 
called is READ, WRITE or PUNCH 
respectively, 

is treated exactly as "READ n." 

If x is an odd number, it is treated as 
"punch n, , "; if x is an even niimber or 
a fixed-point variable name, it is treated 
as "PRINT n, "„ 

If x is a number, CAM 11, x is compiled. 
If X is a fixed-point name, 

CAD X 

SIA 8 

ATN M8 

CAM 11 



is compiled. 
IjZkilST. 



The program to be called is 



WRITE TAPE X, 



is similar to READ TAPE x. 
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REWIKD TAPE x 

END FILE X > Also start identically to READ TAPE x, 

BACKSPACE x 



All statements next cause a CAM 1, LIST to be compiled. The three 
control statements them compile as 



CAM 8 J control code 
SFR S, LIST 
CALL IJZJlIST 
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3o5oi^-oloi^• Handllns of the l/o List 

As the l/o list is scanned, orders are compiled which will construct 
the execution list in LIST, LIST + 1, etc. Ml will be set to contain LIST hy 
the code CAM 1, LIST, and Mil will be set to contain either the unit number or 
format number by the compiled code described above. 

Each time that a new execution list is started, a CAM 8, hOS^ or 
CAM 8, UO96 + 512, for read or write respectively, is compiled. As each element 
of the l/o list is scanned, a CAM 9 "address" is compiled for that element. If 
this is the first element of the statement or if it involves a number of words 
different from the last one examined, a CAM 10, N (where N is the number of 
words) is compiled. If this is the last member of the l/O list statement, an 
EjZ5m 8, k096 and an SFR 6, LIST + # are compiled, followed by a CALL IJ^LIST. 
If the available space for LIST (ten words) is now exhausted, or if one of the 
conditions described below occurs, an E0M 8, 6lkk is compiled instead of the 
EjZ^M 8, UO96. This sets the "nonfinal call" bit on in LIST so that the block 
may be continued by another CALL. Otherwise an SFR 6, LIST + # is compiled 
and the scan continues. 

Example 

If A has been dimensioned as A(7, 3^5) and V and W are simple 
variables, "A(5,3,2), V, A, W" will compile as 
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10, 1 
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9, A 
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SFR 
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If a dimensioned variable uses variables in its indexing then the 
accumulator is used to calculate the address in the following manner. The 
address is expanded so that it is in the form 



V + C^ * N^ + C^ * N^ + C + N + C 



where C^, C^, C^ and C are numeric constants, N-j^, N^, and N_ are the fixed-point 
names that appear in the indices and V is the base address of the variable. 
Orders are compiled which will construct 



C^ * N^ + Cg * N^ + C^ * ^3 



in the accumulator, using FO as temporary storage. Then 

SIA 

ATN MO 

CAM 9, V + C 



is compiled. 



Date: 


il2i/ek 


Section: 


3.5.^.1.5 


Page: 


1 of 1 


Revision: 





3.5.^1.1.5 Partial CALLs of the Execution Subroutines READ, etc . 

As mentioned above, when the execution list reaches ten items, a 
CALL (partial, i.e., not final) is made in order to give the information in 
the list to the execution subroutine. This must also happen in the circumstances 
below. 

a) If an input statement includes in its list a simple 
fixed-point variable, say I, followed by an indexed 
variable which uses I in its indexing, e.g., 

... I, A(I,7,3), ..., I must be stored in memory before 
the address of k{l,l,'i) can be calculated. After the 
CAM 9, I has been compiled, a partial call, that is, 
E^M 8, 614VSFR 6, LIST + #/CALL subroutine, is compiled 
before the variable A is taken care of. To detect this 
case, a flag, bit 2 of the variable table word for I, 
is set at compile time when it is found in an input 
statement. This flag is cleared when a CALL is compiled. 

b) Another time that a partial call must be compiled is when 
an implied T)f) loop is found. When a "(" that does not 
follow a variable name is found, a partial CALL is 
compiled unless no variables have been seen since the 
last partial CALL. Thus READ 7,l((J,A(j), ( ..., will 
cause a partial CALL to be compiled at the first and 
third "(" but not at the second. When the end of the D0 
loop is indicated by the occurrence of "simple fixed-point 
variable =" a further partial CALL must be compiled. 
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3o5.Uol.6 Handling of D)?^ Indexing In l/o Statement 

The indexing Is done in memory in floating point., When a "(" Is 
found, two internal labels, L and L are assigned and placed on top of a 
push-down stack. 

TRA L2 

LI : 

is then compiled after a partial CALL (if necessary) o (LI is a label for the 
next machine order.) 

When an "l =" is found (I is any fixed-point variable) a scan is 
made to find either L, M, N) or L, M) where L, M and W are fixed-point names 
or numbers of not more than five digits. Anything else is illegal. Then the 
following code is compiled after a partial CALL 



L2 



CAD 


I 


ADD 


N (1 if N is not specified) 


STR 


I 


SUB 


M 


TZN 


LI 


TRA 


2, L2 + 1 


CAD 


L 


STR 


I 


TRA 


LI 



The addresses LI and L2 are removed from the top of the push-down 
stack so that such loops may be nested. The D/5 push down is limited to three 
levels, only in order to be compatible with the 709i<- F0RTRAKo When the end of 
the statement is reached, a final CALL is compiled, that is, E|6m 8, 4096/SFR 6, 
LIST + 1#/CALL execution subroutine. If at this time the execution list should 
happen to be empty because of a previous partial CALL, then a CAM 10 is first 
compiled. 
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Example 

DIMENSIi25N A( 10, 10^ 20) 

READ 7, (K,J, (A(J,I,L),I=1,K),L=1,20) 

will compile as 

CAM 11, FRM(7) 

CAM 1, LIST 

TRA L20 

LIO CAM 8, 4096 

CAM 9, K 

CAM 10, 1 

SFR 6, LIST 

CAM 9, J 

EjZ5m 8, Glkk partial CALL 

SFR 6, LIST + 1 

CALL READ 

TRA L21 

Lll CAM 8, 4096 (This resets M8 after each partial CALL. ) 

CAD L 

MPY 100, 

STR FO 

CAD I 

MPY 10. 

ADD FO 

ADD J 

SIA 

ATW MO 

CAM 9, A - 111 (A is the address of A(l,l,l) .) 

Ej^^M 8, Slkk Partial CALL 

SFR 6, LIST 

CALL READ 

CAD I 

ADD 1. 
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STR 


I 


SUB 


K 


TZN 


Lll 


TRA 


2, L21 + 1 


L21 CAD 


1. 


STR 


I 


TRA 


Lll 


CAD 


L 


ADD 


1 


STR 


L 


SUB 


20. 


TZN 


Lie 


TRA 


2, L20 + 1 


L20 CAD 


1. 


STR 


L 


TRA 


LIO 


CAM 


8, kQ9G 


CAM 


10 


ej6m 


8, h09G Final CALL 


SFR 


G, LIST 


CATiT, 


READ 
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3.5.Uolo7 Errors 

It, during the scan of a statement, an illegal com'bination of 
characters is met, an error is listed. In order to search for as many errors 
as possible, the scan is continued whenever possible » In order to do this, one 
of the following actions is taken. 

Al Skip to the next comma, then start the scan. 

A2 Skip to the next ), then skip to a comma, then start the scan. 

A3 Skip to the end of the statement and return to the 
statement recognizer. 

A4 List an error but continue the compilationo 

If the scan is restarted, it is always at the beginning of the l/o list 
program. The various errors that are recognized and their subsequent actions 
are: 

Error No . Reason Action 

11 Comma missing between l/o list items Al 

12 A number of function appears in the I/O list Al 

13 Too few indices in a dimensioned variable Al 
Jh An operator which was not "(" follows a comma Al 

15 ) comes too soon in D0 description, e.g., ..c I = 1 Al 

16 First item after READ, etc., is not a number Al 

17 Tape unit address is not # or fixed name Al 

18 Format label is not type or 1 (double defined) Al 
L9 Variable followed by ( has not been dimensioned A2 

110 Address construction in a dimensioned variable is not A2 
valid 

111 Address of dimensioned variable too large A2 

112 Dj?!i control parameters are incorrect A2 

113 Left and right parentheses don't match (can be caused A3 
by other errors) 
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Error No „ Reason Action 

114 End of statement occurs when not expected. A3 

115 Variable in read is under external Djz5 control. Ak 

116 Implied Df) loop variable has been read or is under kk 
external Iif) control. 

117 Too many nested implied 1)0 loops . A3 

118 Tape unit address is not # or fixed name in RIT or Wj?^! A3 
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3.5^ = 2 Logical Organization of the l/o Section 

3o5.ij-.2,l Format Flow Description 

Because a TRA order is compiled around the format string to be loaded 
into memory, the complete statement must be scanned to determine its length 
before the compilation of the first order can proceed. When the end of the 
statement is sensed, the last nonblank character is checkedo If it was a right 
parenthesis, it is replaced by an asterisk and following blanks are deleted. 
If it was not a right parenthesis, an error is listed and an asterisk is 
added, then trailing blanks are eliminated. This process is programmed by 
using two switches, a and j. a is set to a^ if the last nonblank character 
encountered in the scan is a right parenthesis. When this is set, a count, C, 
of the number of blank characters is set to zero and incremented for each blank 
character read, a is reset to a, when a nonblank character other than a right 
parenthesis is read. If, when such a character is read, a is a , a right 
parenthesis and the blanks indicated by the blank counter C are output into a 
CHR statement. When the end of the statement is reached, a should be a . 
7 controls the generation of the CHE's. It is set to 7p when the blanks are 
being output. 

A maximum of 56 characters (28 quarter words) are packed into each 
CHR due to a restriction imposed by NICAP. 
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LIST ERROR 
MESSAGE 



LIST ERROR 
MESSAGE 



SET LABEL 
TYPE=1 



READ TO 
EOS 



PUT LABEL IN 

OUTPUT BUFFER 

FOR TRANSFER 

AND CHR 



FORM REFERENCE 
BYTE FOR 
TRANSFER 



TRANSFER 
BYTE 



REFERENCE 
BYTE FOR 
CHR 




DETERMINE 
NUMBER OF ENT- 
RIES IM OUTPUT 
BUFFER 



PACK INTO 
OUTPUT 
BUFFER 



INSERT PROPER 
COUNT FOR 
LAST CHR 



PACK INTO 
OUTPUT 
BUFFER 



PUT 1ST aUARTER 
WORD OF EACH WORD 

IN OUTPUT 
BUFFER INTO 

DRUM BUFFER 




SHIFT 
QWa-SWl, 
QW3-9W2, 



ASSEMBLE 

BLANK FOR 

OUTPUT 



READ IN NEXT 
CHARACTER 



INCREMENT 

BLANK 
COUNTER 




RETURN TO 

STATEMENT 

SCANNER 



SETry, 



RESET 

COUNT 

TO -28 




RESET QUARTER 

WORD COUNT 

TO -2 



PACK M8 

INTO OUTPUT 

BUFFER 




PACK 

CHARACTER 

IN Me 



PACK 

CHARACTER 

IN M8 
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3o5oij-o2,2 l/o List Scan 

The first atoms of the statement are scanned according to the 
statement type as shown in the flow charts. Control statement ( BACKSPACE j, 
REWIND, END FILE) then compile a call of the SR^LST and terminate „ The other 
statements proceed into the l/O list scan. The basic form of this scan is: 




Return to 
statement 
scan 



Compile DjZi opening 
and set push down. 



Compile LIST set-up. 



Compile E^^ closure 
from, push down and 
push up= 



n 



J 



The subroutines described in Section 5„4„2„3 control the compilation of outside 
labels, compilation of CALL's at the right time and making sure that MIO has 
the correct value at execution time. 

When a variable is ind.exed, the actual address must be calculated. 
This Is shown in the address calculation flow chart » The address is calculated 
by scanning from left to right and constructing a list of up to three levels 
containing the variables used In the indexing and their multipliers „ The base 
address is also constructed. The most general construction 



^(^11 * ^1 ^^12^^21 * ^2 ^ ^22'Sl * '3 " S2^ 



where A Is dimensioned as A(L,M,K), results in the base address 
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A + C - 1 + L * (C - 1) + L * M * (C„ - 1) 



32 



and the index variables 



C^^-I 



L * C^l - I^ 



and 



L * M * C * I 



An opening parenthesis causes a push down to be constructed with the 



format 



Label 1 



Label 2 



Up to three levels of the push down are allowed. When the DjZJ loop is closed 
the labels are selected from the push down for use. 



Index Register and Control Word Usage 

M8 bit is set to a initially. It is set to 1 each time that an 
outside label is to be constructed by GPD on the next 
order . 



M8 bit 1 



M8 bit 2 



is or 1 accordingly as the label to be put in the next order 
by GPD is from label 1 or label 2 of the push down. 

A 1 Implies that a CALL is to be compiled on the next use of GPA. 
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M8 bit 3 

M8 bit \ 

M9 

MIO 

Mil 

GPCl Quarter 

GPCl Quarter 1 

GPCl Quarter 2 

GPCl Quarter 3 

GPC2 Quarter 



is a or 1 accordingly as the CALL is to be final or partial 
CALL, 

is a 1 after the first order has been compiled in the l/o 
scaHo 

is the address of the C,25UT buffer into which the next output 
byte is to be placed, 

is the address of the next word of the statement buffer „ 

is a count of the length of the object list being coro,plled„ 

contains the code which is put into M8 at execution time, 

contains the length of the block last put in M0„ 

Bit is a if a CAM 8, code is to be compiled on tne next 
entry to GPA, 

contains the internal form, of the subroutine namie to be 
used in a CALL, 

is a pointer to LIST 1^ the list of fixed-point names 
changed in an Inpui statement. 



GPC2 Quarter 2 is the push down pointer. 



C\J 




-It OJ 




MD • 0\ 








t— • Ch 




OJ LTA O 




i>- m_d- 






'd 


H 


o 


o 


•H 


.. -H .. 


W 


01 -P 0) 


•H 


-POM 


> 


05 0) Hi 


cu 


Q CO Ph 


M 



PRINT 
TO F7 



PUNCH 
TO F7 



(read) 



READ TO F7 
INPUT CODE 
TO M8 



OUTPIJT CODE 
AUD FIRST 
BIT TO 
M8 



S 



READ TO F7 

M10= 2N0 

STATEMENT BYTE 



IWTERMAL 
MAME FOl? 
F7 TO M7 



iMniAaxc 
mo "TO 

START OW 
SrATEMENJT 



I 



IMTa?WAl.R>B1 
OF F7 TO m. 
SKIP K)E.XT 
STATOILSJT BWT6 



MIO IS FIRST 

STATEMENT 

BYTE 



EREOE 




EVEN NUMBER OR 



PUMCH 

TO F7 



PRItOT 
TO P7 



IW^■IAl:I^t 

M«t TO STABT 
OF 9. <&VJT. 

0OWT6PLCODe-O 





I(t>LST TO F7 
lOTERNALfDKn 
TO F7 CONTWL 
CODE TO Ma 



COMPILE. 
CAM it, 
Z, FRM 



COMPI LE 
CAM 1., 
L1=.T 




&CT 
XkiTEEMAU 
FOEt-l M 




iMmAas; 

&PC1. FEOM 
M4- AMDM7 



START 




REWiWED 
CODE TO 
M4- 



CWD FILE 

CODE TO 

Mi4- 
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COMPILE CONTROL ENTRIES 



fcoiOTJ — ^ 



OUTPUT 
CAMS, 

CODE 



OUTPUT 
LIST 



OUTPUT 
CALL lO LIST 



use: S<J)UT 

TO remove: 

COMPILED 
PROGRAM 
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I/O LIST SCM 



READ BVTE 




EREOE X L 



G-P&24 



READ ME XT 
BVTC 



G-P&26 



£EROI? 14 



ERROR in 



EEEOE 1 2. 



CALCULHTC 



CALL aPA 
WITH •ilZElM 
MO. CALLGPB 



START 




COMPlLt TRA 
LABEL Z. 
LABEL, i. 
IMMEXTWORD 
V 



: GCT.TUO 
nOTCRNAL 
UBELS FROM 
grA&LE (L^BEU 



aTORE IN 
PU?>H 
DQVJN 



G.PG- 



ERROR 114 




OUTPUT 
CAMIO 


t 






', 


Inio 






FIMD CALL 
OM GPA 


JVE=. 






Eurr TO 

STATEMENT 

SCAM 





VES 





vts 






NO 




MO 




SAVE. NAMC 
IM Ll%T i. 




^ 








i^ffi 










CULL G-PA 
Wl-fW LtM&TH 

CALL G-P& 



ERROR 116 



NO 



COMPILE END OF DO LOOP 



Date: 


7/27/61^ ■ 


Section; 


3.5.^»2o2 


Page: 


7 of 9 


Revision: 






COMPILE 
PAETIAL- CAU, 
WlTrt G.PA 
SET COWTCit 
■^ -a 



E.BE.Og 



tREOR. 




L 



COMPIL-E. 

CADI 



lWCaEME.WT 
+ COOK 




G-PG-3S 



EEeot? X12 



COIiPILC 
ADD 
M LIST -t- Z 


* \-+- Z. A > • 


COMPILE 
ADD W. 




' 




. 














COMPILE 
STET 





COMPILE SUB 




/m list\ 




COMPILE 


M LIST *1 


'N "\A wuriBEg/VES 


SUB K). 


' 














' 








COMPILE TJS) 

LI ( U FROM 

POSHDONN ) 

TEA 2, U 2. 







COMPILt 

L2. 
CAD K) 




COMPILE 
TRALi 



START 





-<sr 
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ai 






\D 


-^ 


On 
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Ch 
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CJ 


hn 
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cri 


01 


(A 


M 


Uk 


« 



CO 

w 



H 



o 
o 



i 



o 

I 

CO 
N 




ERROR 
19 




FIXED POINT 
NAME.WO f 



COMPILE PARTMl 

CALL TROUSH 

GPA 



V. 



NUMBER — XM 




ERROR 
110 




ERROR 
115 




B + M»XM— B 




ERROR 
113 
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OUTPUT RESULT (OF ADDRESS CALCULATION) 




COMPILE 
STR FO 



I 



G-PV6. 



K) = K)-i 




compile: 

SIA O 
ATN) MO 



&-PV4 



compile: 

CAD Im 




compile. 

ADD FO 



GPV5 



COMPILE 
MPM M^, 



G-PVZ 



CALL GPB 

rOR i (MO) 

ANJD+BCMt) 



START 
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3o5=4.2.3 The Use of Subroutines in the l/o Section 

In addition to the subroutines GKEAD^ GTABLE^ GENTAB, FREBIL, SOUTp 
and GERROR described elsewhere, the l/O section makes use of the subroutines: 



GEPD 

GPRD gets the next byte from the buffer, taking care of E^B and Ej25s< 



GPP 

GPD, and subsidiaries, generate an appropriate IL reference byte, 
taking care of an outside name if required. 



GEMTVR 

GEIWVR has two exits, the first to (M3) if the name in F? is in the 
dimension table, the second, to (2,M3) if the name is in the variable table, 
or if it is In neither. In which case it Is put in the variable table. 



GPBASE 

GPBASE supplies the next available address in the dimension list. 



GFA 

GPA compiles a CAM 8, code if this is the first use following the 
compile of a CALL and an SFR 6, list + n otherwise, n Is Incremented, and if 
it becomes 10, a partial CALL is compiled and it is reset to Oo According to 
control bits in M8, it can also be forced to compile a partial or a final 
CALL sequence. 

When a CALL SEQUENCE is compiled, the LISTl, which contains those 
fixed-point variables which have been changed by a read since the last CAI.L, 
is cleared. 
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GPB 



GPB compiles a CAM 9, "name" If Ml = and a CAM 9, name + (Ml) 
If Ml 1^ 0. It then compiles a CAM 10, (MO) if MO is different from the current 
contents of MIO at execution time or if this is not known. 
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SUBROUTim; GPRD (reads byte and tests for EOS) 



RE^D MEXT 
BYTE 




GPE 



RESET \MJS 
(BUFFER /^DOKESS) 



EXIT 



GPZSAs 



GPE2 



ERR6R 



Note: The various cases tested when End of Statement is sensed correspond to 

a legal case (GPE), the "look-ahead" for an = after an integer name which 
is also legal, and the result of a previous error (GPE2) which should 
not cause further error messages. 
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SUBROUTINE GPBASE (GETS NEXT PLACE IN DIMENSION LIST) 




IWCREMEMTEASEl 
C5UI0T BY 1 
PUT C6U10T 
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COMPILE E0M8, 
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GP^C 
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EXIT 
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C OUT BUFFER 



COMPILE CNMa 
CODE 



COMPILE SFRG, 
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MG 



&PM 




a WO. 



CLEA.R USE B\TS 
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COMPILE Ci\LL 
SUBROkUTIME 
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SUBROUTINE GPB (COMPILED l/O LIST SET-UP ) 
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5 . UPDATING AND SYSTEM MODIFICATION PROGRAMS 



This chapter describes the programs not directly employed by the 
user, but used to prepare system program packages on various memory devices. 
Typical of these are the update programs used to change and copy the system 
tape and the library tape. 
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5 .3 The Library Tape Update Program 

This program makes it possible to add^, replace or delete a program 
on the system library tape and to adjust the table of contents accordinglyo 

Logical tape number 1 is the system library tape. It consists of 
one or more records of the table of contents followed by the programs in 
relocatable binary card images packed 12 per record of 256 words. Each program 
occupies an integral number of records, so that the last record of each program, 
may contain fewer than 12 card images. 

Each program is characterized by its major name, zero or more minor 
names, zero or more names of required subroutines and the n\imber of records 
it occupies on tape. The major and minor names are those BCD names by which 
the program can be CALLed. The major name is the first such name. There is no 
other difference to the user between these names. A few programs are designated 
in the table of conten^s as monitor programs, that is, they are in high core at 
execution time and do not, therefore, appear on the library tape except for an 
entry in the table of contents. Instead, the table of contents indicates the 
core address of the program start (assumed to be at quarter-word zero). 

The table of contents has the following format for each programs 
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Minor Names 
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Programs appear in the table of contents in the order that they appear in the 
subsequent records „ Monitor programs may appear anywhere in the table. Within 
each program the major names, minor names and required subroutines are entered 
in that order. Immediately after the last entry in the table of contents, the 
word 



1 




1 











is stored as an end marker. It also appears in the last word of the last 
block of the table if this is different from the above. This word enables 
the load program to sense the end of the table , 

To aid in tape copying;, the last record on the tape is followed by 
two End of File marks. The order on the tape is important because It will 
determine the load time. During the loading of a program, the table of 
contents is scanned for undefined programs. A list of these (that are on the 
library tape) is prepared in the order in which they appear on the tape. 
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They are then added to the program in that order. The copy time will therefore 
be shorter if all of the programs are near the beginning of the tape. 



Use 

The programs are accepted from relocatable binary cards preceded by 
a control card. The format of the control cards is 



Column 9 
Column 10 



Column 11 
Column 12 

Columns IJ-SU 



^-, , T [Columns 25-30 
Blank unless -I 

monitor program Icolumns 33-^0 
Columns i^-l-SO 



Blank 

A --Add a program 

D --Delete a program 

E --End of update 

R --Replace a program 

Blank- - 

Blank- -Ordinary program 

M --Monitor program to be added or 
replaced (blank if delete job) 

--The number of the program on tape 
to be deleted or replaced, or the 
number of the program to be added. 
(Numbering starts from 0.) 

--BCD name of monitor program 

--Core address of monitor program 

--Arbitrary title that is reproduced 
at the top of the table listing 



If this is a delete or monitor jobj, then no binary cards are needed. 

As the job is processed the table of contents is listed with the 
format of 



Columns 1-2^ 

Columns 25-72 
Columns 73 -9^ 



-Number of program on tape, major 
name, - number of records or monitor 
address 

-Up to six minor names per line on 
as many lines as necessary 

-Up to six required subroutine names 
per line on as many lines as necessary 
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Each change will produce a new table „ When the job has been completed^ the 
new versions of the library tape are on logical units 7 and 8o The tape from 
unit 7 should be used as the new master copy since it has been reread once 
for checking purposes , 

The End control card causes a rewind of tapes 7 and 8 and a transfer 
to SYSTEM. 



Method 

Heavy reliance Is place on two subroutines, UL^UT and ULIK. These 
take care of the table of contents of the new and the old versions respectively. 
Each time ULIN Is called, the next entry in the table of the old version is 
placed in F7. A record is read whenever necessary^ Consequently when the 
last entry has been read, the tape is spaced to the first block of relocatable 
binary program,, IIL,^UT takes the table entry in F7 and adds it to the table 
of the new vers ion o Each time that a record (256 words) Is full, UI.,sSUT writes 
on the new tape (logical unit 7);> ULji^IJT also prints the new table, testing 
the control bits in M1.2 and MI3 to find out the type of name (major, minor or 
required). When the final entry is sensed (control bits 11)^ UL0UT puts the 
last record on tape 7= Thus the new tape is also ready to receive the new 
version of the binary program. 

The copy of the binary part of the tape is achieved by preparing 
four counts „ They are 

1) The number of blocks before the change. Stored in 
UBLCM + 1. 

2) The number of blocks to be skipped on the old tape (O if 
an addition). Stored in USKIP, 

3) The number of blocks of the addition or replacements to 
be copied from tape 6 (0 if a deletion). Stored in lEiCKT. 

k) The number of blocks to be copied after the change. Stored 
in UBLCNT. 
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The copy Is done from tape 1 on the first change, and. tape 8 
subsequently, to tape 'J , getting the new program of tape 6 where it has 
previously been loaded. When this has been completed, tape 1 or 8 is checked 
to see if an End of File mark is next on the tape. An exit to SYSEBE is made 
if not, or if an earlier END OF FILE was sensed. Finally tape 7 is copied 
to tape 8 to prepare a second copy and to check tape 7 for parity errors a 
second time. 

Another card is now read, either to begin another job or to cause an 
exit to SYSTEM in the case of an End card. 
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